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Preface 


The Sinclair ZX Spectrum is a worthy successor to the ZX 81 which in turn replaced the ZX 80. 


The Spectrum has a 16K monitor program. This program has been developed directly from the 4K program 
of the ZX 80 although there are now so many new features that the differences outweigh the similarities. 


We have both enjoyed producing this book. We have learnt a great deal about the techniques of Z80 
machine code programming and now feel that between us we have unravelled the ‘secrets of the Spectrum’. 


We would like to thank: 
-- Our families. 
-- Alfred Milgrom, our publisher who has been extremely helpful. 
-- Philip Mitchell whose notes on the cassette format were most informative. 


-- Clive Sinclair and his team at Sinclair Research Ltd. who have produced such a ‘challenging’ and 
useful machine. 


January 1983 


lan Logan Lincoln, U.K. 
Frank O’Hara London, U.K. 
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Introduction 


The 16K monitor program of the Spectrum is a complex Z80 machine code program. Its overall structure is very clear in that it is divided 
into three major parts: 
a. Input/Output routines. 
b. BASIC interpreter. 
c. Expression handling. 
However these blocks are too large to be managed easily and in this book the monitor program is discussed in ten parts. 
Each of these parts will now be ‘outlined’. 


The restart routines and tables. 

At the start of the monitor program are the various ‘restart’ routines that are called with the single byte ‘RST’ instructions. All of the 
restarts are used. For example ‘restart 0008’ is used for the reporting of syntax or run-time errors. 

The tables in this part of the monitor program hold the expanded forms of the tokens and the ‘key-codes’. 


The keyboard routine. 
The keyboard is scanned every 1/50 th. of a second (U.K. model) and the keyboard routine returns the required character code. All of 
the keys of the keyboard 'repeat' if they are held down and the keyboard routine takes this into consideration. 


The loudspeaker routines. 
The spectrum has a single on-board loudspeaker and a note is produced by repeatedly using the appropriate 'OUT' instruction. In the 
controller routine great care has been taken to ensure that the note is held at a given 'pitch' throughout its ‘duration’. 


The cassette handling routines. 

It was a very unfortunate feature of the ZX 81 that so little of the monitor program for that machine was devoted to the cassette 
handling. 

However in the Spectrum there is an extensive block of code and now the high standard of cassette handling is one of the most 
successful features of the machine. 

BASIC programs or blocks of data are both dealt with in the same manner of having a ‘header’ block (seventeen bytes) that is SAVEd 
first. This 'header' describes the 'data block’ that is SAVEd after it. 

One disadvantage of this system is that it is not possible to produce programs with any 'security' whatsoever. 


The screen and printer handling routines. 

All of the remaining input/output routines of the Spectrum are ‘vectored’ through the 'channel & stream information areas’. 

In the standard Spectrum 'input' is only possible from the keyboard but 'output' can be directed to the printer, the upper part of the T.V. 
display or the lower part of the T.V. display. 

The major ‘input' routine in this part of the monitor program is the EDITOR that allows the user to enter characters into the lower part of 
the T.V. display. 

The PRINT-OUT routine is a rather slow routine as the same routine is used for ‘all possibilities'. For example, the adding of a single 
byte to the ‘display area’ involves considering the present status of OVER and INVERSE on every occasion. 


The executive routines 

In this part of the monitor program are to be found the INITIALISATION procedure and the 'main execution loop' of the BASIC 
interpreter. 

In the Spectrum the BASIC line returned by the EDITOR is checked for the correctness of its syntax and then saved in the program 
area, if it was a line starting with a line number, or 'executed' otherwise. 

This execution can in turn lead to further statements being considered. (Most clearly seen as in the case of - RUN.) 


BASIC line and command interpretation. 

This part of the monitor program considers a BASIC line as a set of statements and in its turn each statement as starting with a 
particular command. For each command there is a ‘command routine’ and it is the execution of the machine code in the appropriate 
‘command routine’ that effects the ‘interpretation’. 


Expression evaluation 

The Spectrum has a most comprehensive expression evaluator allowing for a wide range of variable types, functions and operations. 
Once again this part of the monitor is fairly slow as all the possible alternatives have to be considered. 

The handling of strings is particularly well managed. All simple strings are managed ‘dynamically’ and old copies are 'reclaimed' once 
they are redundant. This means that there is no 'garbage collecting’ to be done. 


The arithmetic routines 

The Spectrum has two forms for numbers. Integer values in the range -65535 to +65535 are in an ‘integral’ or 'short' form whilst all other 
numbers are in a five byte floating point form. 

The present version of the monitor is unfortunately marred by two mistakes in this part. 

i. There is a mistake in ‘division’ whereby the 34th bit of a division is lost. 

ii. The value of -65536 is sometimes put in 'short' form and at other times in ‘floating-point’ and this leads to troubles. 


The floating-point calculator 

The CALCULATOR of the Spectrum handles numbers and strings and its operations are specified by ‘literals’. It can therefore be 
considered that there is an internal 'stack operating’ language in the CALCULATOR. 

This part of the monitor program contains routines for all the mathematical functions. The approximations to SIN X, EXP X, LN X & ATN 
X are obtained by developing Chebyshev polynomials and full details are given in the appendix. 


Overall the 16K monitor program offers an extremely wide range of different BASIC commands and functions. The programmers have 
always however been short of 'room' and hence the program is written for 'compactness' rather than 'speed'. 


THE DISASSEMBLY 


THE RESTART ROUTINES and THE TABLES 


THE 'START' 
The maskable interrupt is disabled and the DE register pair set to hold the 'top of possible RAM". 
0000 START DI Disable the 'keyboard interrupt’. 
XOR A +00 for start (but +FF for 
'NEW’). 
LD DE,+FFFF Top of possible RAM. 
JP 11CB,START/NEW Jump forward. 


THE 'ERROR' RESTART 


The error pointer is made to point to the position of the error. 


0008 ERROR-1 LD HL,(CH-ADD) The address reached by the 
LD (X-PTR),HL interpreter is copied to the error 
JP 0053,ERROR-2 pointer before proceeding. 


THE 'PRINT A CHARACTER' RESTART 

The A register holds the code of the character that is to be printed. 

0010 PRINT-A-1 JP 15F2,PRINT-A-2 Jump forward immediately. 
DEFB +FF,+FF,+FF,+FF,+FF Unused locations. 


THE 'COLLECT CHARACTER’ RESTART 
The contents of the location currently addressed by CH-ADD are fetched. A return is made if the value represents a printable character, 
otherwise CH-ADD is incremented and the tests repeated. 


0018 GET-CHAR LD HL,(CH-ADD) Fetch the value that is addressed 
LD A,(HL) by CH-ADD. 

001C TEST-CHAR CALL 007D,SKIP-OVER Find out if the character is 
RET NC printable. Return if it is so. 


THE 'COLLECT NEXT CHARACTER' RESTART 


As a BASIC line is interpreted, this routine is called repeatedly to step along the line. 


0020 NEXT-CHAR CALL 0074,CH-ADD+1 CH-ADD needs to be incre- 
mented. 
JR 001C,TEST-CHAR Jump back to test the new 
value. 
DEFB +FF,+FF,+FF Unused locations. 


THE 'CALCULATOR' RESTART 

The floating point calculator is entered at 335B. 

0028 FP-CALC JP 335B, CALCULATE Jump forward immediately. 
DEFB +FF,+FF,+FF,+FF,+FF Unused locations. 


THE 'MAKE BC SPACES' RESTART 


This routine creates free locations in the work space. The number of locations is determined by the current contents of the BC register 


pair. 

0030 BC-SPACES PUSH BC Save the 'number'. 
LD HL,(WORKSP) Fetch the present address of the 
PUSH HL start of the work space and save 
JP 169E,RESERVE that also before proceeding. 


THE 'MASKABLE INTERRUPT' ROUTINE 


The real time clock is incremented and the keyboard scanned whenever a maskable interrupt occurs. 


0038 MASK-INT PUSH AF Save the current values held in 
PUSH HL these registers. 
LD HL,(FRAMES) The lower two bytes of the 


INC HL 


LD (FRAMES),HL 
LD AH 
OR L 
JR NZ,0048,KEY-INT 
INC (FRAMES-3) 
0048 ~~ KEY-INT PUSH BC 
PUSH DE 
CALL 02BF,KEYBOARD 
POP DE 
POP BC 
POP HL 
POP AF 
El 
RET 


THE 'ERROR-2' ROUTINE 


The return address to the interpreter points to the 'DEFB' that signifies which error has occurred. This 'DEFB' is fetched and transferred 


frame counter are incremented 
every 20 ms. (U.K.) The highest 
byte of the frame counter is 
only incremented when the 
value of the lower two bytes 

is zero. 

Save the current values held 

in these registers. 

Now scan the keyboard. 
Restore the values. 


The maskable interrupt is en- 
abled before returning. 


to ERR-NR. The machine stack is cleared before jumping forward to clear the calculator stack. 


0053 ERROR-2 POP HL 
LD L,(HL) 

0055 ERROR3 LD (ERR-NR),L 
LD SP,(ERR-SP) 
JP 16C5,SET-STK 
DEFB +FF,+FF,+FF,+FF 
DEFB +FF,+FF,+FF 


THE 'NON-MASKABLE INTERRUPT' ROUTINE 


The address on the stack points 
to the error code. 

It is transferred to ERR-NR. 
The machine is cleared before 
exiting via SET-STK. 

Unused locations. 


This routine is not used in the standard Spectrum but the code allows for a system reset to occur following activation of the NMI line. 
The system variable at 5CBO, named here NMIADD, has to have the value zero for the reset to occur. 


0066 RESET PUSH AF 
PUSH HL 
LD HL,(NMIADD) 
LD AH 
OR L 
JR NZ,0070,NO-RESET 
JP (HL) 
0070 NO-RESET POP HL 
POP AF 
RETN 


THE 'CH-ADD+1' SUBROUTINE 


The address held in CH-ADD is fetched, incremented and restored. The contents of the location now addressed by CH-ADD is fetched. 


Save the current values held 
in these registers. 

The two bytes of NUIADD 
must both be zero for the reset 
to occur. 

Note: This should have been 
JR Z'! 

Jump to START. 

Restore the current values to 
these registers and return. 


The entry points of TEMP-PTR1 and TEMP-PTR2 are used to set CH-ADD for a temporary period. 


0074 ~~ CH-ADD+1_ LD HL,(CH-ADD) 

0077. + =TEMP-PTR1 INC HL 

0078  TEMP-PTR2 LD (CH-ADD),HL 
LD A,(HL) 


THE 'SKIP-OVER' SUBROUTINE 


Fetch the address. 

Increment the pointer. 

Set CH-ADD. 

Fetch he addressed value and 
then return. 


The value brought to the subroutine in the A register is tested to see if it is printable. Various special codes lead to HL being 


incremented once, or twice, and CH-ADD amended accordingly. 


007D SKIP-OVER CP +21 
RET NC 
CP +0D 
RET Z 


CP +10 


Return with the carry flag reset 
if ordinary character code. 
Return if the end of the line 
has been reached. 

Return with codes +00 to +OF 


RET Cc but with carry set. 


CP +18 Return with codes +18 to +20 
CCF again with carry set. 
RET Cc 
INC HL Skip-over once. 
CP +16 Jump forward with codes +10 
JR C,0090,SKIPS to +15 (INK to OVER). 
INC HL Skip-over once more (AT & 
TAB). 

0090 SKIPS SCF Return with the carry flag set 
LD (CH-ADD),HL and CH-ADD holding the 
RET appropriate address. 


THE TOKEN TABLE 
All the tokens used by the Spectrum are expanded by reference to this table. The last code of each token is ‘inverted’ by having its bit 7 
set. 


ASZSNMNNZAAWBHHAHZHPPZOAZHK<N 


0095 BF 52 4E C4 49 4E 4B 45 
009D 59 A4 50 C9 46 CE 50 4F 
OOA5S 49 4E D4 53 43 52 45 45 
OOAD 4E A4 41 54 54 D2 41 D4 
OOB5 54 41 C2 56 41 4C A4 43 
OOBD 4F 44 C5 56 41 CC 4C 45 
00C5 CE 53 49 CE 43 4F D3 
OOCD 41 CE 41 53 CE 41 43 D3 
QOD5 41 54 CE 4C CE 45 58 DO 
OODD 49 4E D4 53 51 D2 53 47 
OOE5 CE 41 42 D3 50 45 45 
QOOED 49 CE 55 53 D2 53 54 52 
OOF5 A4 43 48 52 A4 4E 4F 
OOFD 42 49 CE 4F D2 41 4E C4 
0105 3C BD 3E BD 3C BE 4C 49 
010D 4E C5 54 48 45 CE 54 CF 
0115 53 54 45 DO 44 45 46 20 
011D 46 CE 43 41 D4 46 4F 52 
0125 4D 41 D4 4D 4F 56 C5 45 
012D 52 41 53 C5 4F 50 45 4E 
0135 20 A3 43 4C 4F 53 45 20 
013D A3 4D 45 52 47 C5 56 
0145 52 49 46 D9 42 45 45 DO 
014D 43 49 52 43 4C C5 49 4E 
0155 CB 50 41 50 45 D2 46 
015D 41 53 C8 42 52 49 47 48 
0165 D4 49 4E 56 45 52 53 
016D 4F 56 45 D2 4F 55 D4 4C 
0175 50 52 49 4E D4 4C 4C 49 
017D 53 D4 53 54 4F DO 52 45 
0185 41 C4 44 41 54 C1 52 45 
018D 53 54 4F 52 C5 4E 45 D7 
0195 42 4F 52 44 45 D2 43 4F 
019D 4E 54 49 4E 55 C5 44 49 
01A5 CD 52 45 CD 46 4F D2 47 
O1AD 4F 20 54 CF 47 4F 20 53 
01B5 55 C2 49 4E 50 55 D4 4C 
01BD 4F 41 C4 4C 49 53 D4 4C 
01C5 45 D4 50 41 55 53 C5 4E 
01CD 45 58 D4 50 4F 4B C5 50 
01D5 52 49 4E D4 50 4C 4F D4 
01DD 52 55 CE 53 41 56 C5 52 
O1E5 41 4E 44 4F 4D 49 5A C5 
O1ED 49 C6 43 4C D3 44 52 41 
01F5 D7 43 4C 45 41 D2 52 
O1FD 54 55 52 CE 43 4F 50 DY 
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THE KEY TABLES 


There are six separate key tables. The final character code obtained depends on the particular key pressed and the 'mode' being used. 


(a) The main key table - L mode and CAPS SHIFT. 


0205 42 48 59 36 35 54 47 56 B H Y 6 5 T G V 

020D 4E 4A 55 37 34 52 46 43 N J U 7 4 R F C 

0215 4D 4B 49 38 33 45 44 58 M K I 8 3 E D X 

021D OE 4C 4F 39 32 57 53 5A SYMBOL L 09 2W SS Z 
SHIFT 

0225 20 OD 50 30 31 51 41 SPACE ENTER P © 1Q A 

(b) Extended mode. Letter keys and unshifted 

022C E3 C4 EO E4 READ BIN LPRINT DATA 

0230 B4 BC BD BB TAN SGN ABS SQR 

0234 AF BO B1 CO CODE VAL LEN USR 

0238 A7 A6 BE AD PI INKEY$ PEEK TAB 

023C B2 BA E5 Ad SIN INT RESTORE RND 

0240 C2 E1 B3 BY CHR$ LLIST CoS EXP 

0244 C1 B8 STR$ LN 

(c) Extended mode. Letter keys and either shift. 

0246 7E DC DA 5C = BRIGHT PAPER \ 

024A B7 7B 7D D8 ATN { } CIRCLE 

024E BF AE AA AB IN VAL$ SCREENS ATTR 

0252 DD DE DF 7F INVERSE OVER OUT © 

0256 BS D6 7C D5 ASN VERIFY | MERGE 

025A 5D DB B6 DI ] FLASH ACS INK 

025E 5B D7 OC 07 [ BEEP 

(d) Control codes. Digit keys and CAPS SHIFT. 

0260 OC 07 06 04 DELETE EDIT CAPS LOCK TRUE VIDEO 

0264 05 08 OA OB INV VIDEO Cursor left Cursor down Cursor up 

0268 09 OF Cursor right GRAPHICS 

(e) Symbol code. Letter keys and symbol shift. 

026A E2 2A 3F CD STOP = ? STEP 

O26E C8 CC CB 5E >= TO THEN A 

0272 AC 2D 2B 3D AT - + = 

0276 2E 2C 3B 22 : , ; " 

027A C7 3C C3 3E <2 < NOT > 

027E C5 2F C9 60 OR / <> £E 

0282 C6 3A AND 

(f) Extended mode. Digit keys and symbol shift. 

0284 DO CE A8 CA FORMAT DEF FN FN LINE 

0288 D3 D4 D1 D2 OPEN CLOSE MOVE ERASE 

028C AQ CF POINT CAT 


THE KEYBOARD ROUTINES 


THE 'KEYBOARD SCANNING' SUBROUTINE 

This very important subroutine is called by both the main keyboard subroutine and the INKEY$ routine (in SCANNING). 

In all instances the E register is returned with a value in the range of +00 to +27, the value being different for each of the forty keys of 
the keyboard, or the value +FF, for no-key. 

The D register is returned with a value that indicates which single shift key is being pressed. If both shift keys are being pressed then 
the D and E registers are returned with the values for the CAPS SHIFT and SYMBOL SHIFT keys respectively. 

If no keys is being pressed then the DE register pair is returned holding +FFFF. 

The zero flag is returned reset if more than two keys are being pressed, or neither key of a pair of keys is a shift key. 


028E KEY-SCAN LD L,+2F The initial key value for each 
line will be +2F, +2E,...,+28. 
(Eight lines.) 
LD DE,+FFFF Initialise DE to 'no-key’. 
LD BC,+FEFE C = port address, B = counter. 


Now enter a loop. Eight passes are made with each pass having a different initial key value and scanning a different line of five keys. 


(The first line is CAPS SHIFT, Z, X, C, V.) 


0296 KEY-LINE IN A,(C) Read from the port specified. 
CPL A pressed key in the line will set 
AND +1F its respective bit (from bit 0 - 
outer key, to bit 4 - inner key). 
JR Z,02AB,KEY-DONE Jump forward if none of the 
five keys in the line are being 
pressed. 
LD H,A The key-bits go to the H register 
LD A,L whilst the initial key value is 
fetched. 
029F KEY-3KEYS INC D If three keys are being pressed 
RET NZ on the keyboard then the D 
register will no longer hold +FF 
- so return if this happens. 
02A1 KEY-BITS SUB +08 Repeatedly subtract '8' from 
SRL H the present key value until a 
JR NC,02A1,KEY-BITS key-bit is found. 
LD DE Copy any earlier key value to 
the D register. 
LD EA Pass the new key value to the 
E register. 
JR NZ,029F ,KEY-3KEYS If there is a second, or possibly 


a third, pressed key in this line 
then jump back. 


02AB KEY-DONE DEC L The line has been scanned so the 
initial key value is reduced for 
the next pass. 
RLC B The counter is shifted and the 
JR C,0296,KEY-LINE jump taken if there are still lines 


Four tests are now made. 


to be scanned. 


LD A,D Accept any key value which still 

INC A has the D register holding +FF. 

RET Z i.e. A single key pressed or 
‘no-key’. 

CP +28 Accept the key value for a pair 

RET Z of keys if the ‘D’ key is CAPS 


SHIFT. 


CP +19 Accept the key value for a pair 


RET Z of keys if the 'D' key is SYMBOL 
SHIFT. 

LD A,E It is however possible for the 'E' 

LD E,D key of a pair to be SYMBOL 

LD D/A SHIFT - so this has to be 

CP +18 considered. 

RET Return with the zero flag set if 


it was SYMBOL SHIFT and 
‘another key’; otherwise reset. 


THE 'KEYBOARD' SUBROUTINE 

This subroutine is called on every occasion that a maskable interrupt occurs. In normal operation this will happen once every 20 ms. 
The purpose of this subroutine is to scan the keyboard and decode the key value. The code produced will, if the 'repeat' status allows it, 
be passed to the system variable LAST-K. When a code is put into this system variable bit 5 of FLAGS is set to show that a 'new' key 
has been pressed. 


02BF KEYBOARD CALL 028E,KEY-SCAN Fetch a key value in the DE 
RET NZ register pair but return immedi- 
ately if the zero pair flag is reset. 


A double system of 'KSTATE system variables' (KSTATEO - KSTATE 3 and KSTATE4 - KSTATE7) is used from now on. 

The two sets allow for the detection of a new key being pressed (using one set) whilst still within the 'repeat period’ of the previous key 
to have been pressed (details in the other set). 

A set will only become free to handle a new key if the key is held down for about 1/10 th. of a second. i.e. Five calls to KEYBOARD. 


LD HL,KSTATEO Start with KSTATEO. 

02C6 K-ST-LOOP BIT 7,(HL) Jump forward if a 'set is free’; 
JR NZ,02D1,K-CH-SET i.e. KSTATEO/4 holds +FF. 
INC HL However if the set is not free 
DEC (HL) decrease its '5 call counter’ 
DEC HL and when it reaches zero signal 
JR NZ,02D1,K-CH-SET the set as free. 
LD (HL),+FF 


After considering the first set change the pointer and consider the second set. 


02D1 K-CH-SET LD A,L Fetch the low byte of the 
LD HL,KSTATE4 address and jump back if the 
CP L second set has still to be 
JR NZ,02C6,K-ST-LOOP considered. 


Return now if the key value indicates 'no-key' or a shift key only. 
CALL 031E,K-TEST Make the necessary tests and 
RET NC return if needed. Also change 
the key value to a 'main code’. 


A key stroke that is being repeated (held down) is now separated from a new key stroke. 


LD HL,KSTATEO Look first at KSTATEO. 

CP (HL) Jump forward if the codes 

JR Z,0310,K-REPEAT match - indicating a repeat. 

EX DE,HL Save the address of KSTATEO. 
LD HL,KSTATE4 Now look at KSTATE4. 

CP (HL) Jump forward if the codes 

JR Z,0310,K-REPEAT match - indicating a repeat. 


But a new key will not be accepted unless one of the sets of KSTATE system variables is ‘free’. 


BIT 7,(HL) Consider the second set. 
JR NZ,02F1,K-NEW Jump forward if ‘free’. 
EX DE,HL Now consider the first set. 


BIT 7,(HL) Continue if the set is ‘free’ but 
RET Z exit from the KEYBOARD 
subroutine if not. 


The new key is to be accepted. But before the system variable LAST-K can be filled, the KSTATE system variables, of the set being 
used, have to be initialised to handle any repeats and the key's code has to be decoded. 


02F1 K-NEW LD EA The code is passed to the 
LD (HL),A E register and to KSTATEO/4. 
INC HL The '5 call counter’ for this 
LD (HL),+05 set is reset to '5’. 
INC HL The third system variable of 
LD A,(REPDEL) the set holds the REPDEL value 
LD (HL),A (normally 0.7 secs.). 
INC HL Point to KSTATE3/7. 


The decoding of a ‘main code’ depends upon the present state of MODE, bit 3 of FLAGS and the 'shift byte’. 


LD C,(MODE) Fetch MODE. 

LD D,(FLAGS) Fetch FLAGS. 

PUSH HL Save the pointer whilst the 
CALL 0333,K-DECODE ‘main code’ is decoded. 

POP HL 

LD (HL),A The final code value is saved in 


KSTATE3/7; from where it is 
collected in case of a repeat. 


The next three instruction lines are common to the handling of both 'new keys' and 'repeat keys’. 


0308 K-END LD (LAST-K),A Enter the final code value into 
SET 5,(FLAGS) LAST-K and signal 'a new key’. 
RET Finally return. 


THE 'REPEATING KEY' SUBROUTINE 


A key will 'repeat' on the first occasion after the delay period - REPDEL (normally 0.7 secs.) and on subsequent occasions after the 
delay period - REPPER (normally 0.1 secs.). 


0310 K-REPEAT — INC HL Point to the '5 call counter’ 
LD (HL),+05 of the set being used and reset 
it to '5". 
INC HL Point to the third system vari- 
DEC (HL) able - the REPDEL/REPPER 
value, and decrement it. 
RET NZ Exit from the KEYBOARD 


subroutine if the delay period 
has not passed. 


LD A,(REPPER) However once it has passed the 

LD (HL),A delay period for the next repeat 
is to be REPPER. 

INC HL The repeat has been accepted 

LD A,(HL) so the final code value is fetched 
from KSTATE3/7 and passed 

JR 0308,K-END to K-END. 


THE 'K-TEST' SUBROUTINE 


The key value is tested and a return made if 'no-key' or 'shift-only'; otherwise the 'main code’ for that key is found. 


031E K-TEST LD B,D Copy the shift byte. 
LD D,+00 Clear the D register for later. 
LD A,E Move the key number. 
CP +27 Return now if the key was 
RET NC ‘CAPS SHIFT' only or 'no-key’. 


CP +18 Jump forward unless the 'E' 


JR NZ,032C,K-MAIN key was SYMBOL SHIFT. 
BIT 7,B However accept SYMBOL SHIFT 
RET NZ and another key; return with 


SYMBOL SHIFT only. 


The 'main code’ is found by indexing into the main key table. 


032C K-MAIN LD HL,+0205 The base address of the table. 
ADD HL,DE Index into the table and fetch 
LD A,(HL) the 'main code’. 
SCF Signal 'valid keystroke’ 
RET before returning. 


THE 'KEYBOARD DECODING' SUBROUTINE 

This subroutine is entered with the 'main code' in the E register, the value of FLAGS in the D register, the value of MODE in the C 
register and the ‘shift byte’ in the B register. 

By considering these four values and referring, as necessary, to the six key tables a ‘final code’ is produced. This is returned in the A 
register. 


0333 K-DECODE LD A,E Copy the 'main code’. 
CP +3A Jump forward if a digit key is 
JR C,0367,K-DIGIT being considered; also SPACE, 
ENTER & both shifts. 
DEC Cc Decrement the MODE value. 
JP M,034F,K-KLC-LET Jump forward, as needed, for 
JR Z,0341,K-E-LET modes 'K', 'L', 'C' &'E'. 


Only 'graphics' mode remains and the ‘final code’ for letter keys in graphics mode is computed from the 'main code’. 


ADD A,+4F Add the offset. 
RET Return with the ‘final code’. 


Letter keys in extended mode are considered next. 


0341 K-E-LET LD HL,+01EB The base address for table 'b'. 
INC B Jump forward to use this table 
JR Z,034A,K-LOOK-UP if neither shift key is being 
pressed. 
LD HL,+0205 Otherwise use the base address 
for table 'c’. 


Key tables 'b-f are all served by the following look-up routine. In all cases a ‘final code' is found and returned. 


034A K-LOOK-UP LD D,+00 Clear the D register. 
ADD HL,DE Index the required table 
LD A,(HL) and fetch the ‘final code’. 
RET Then return. 


Letter keys in 'K’, 'L' or 'C' modes are now considered. But first the special SYMBOL SHIFT codes have to be dealt with. 


034F K-KLC-LET LD HL,+0229 The base address for table 'e' 
BIT 0,B Jump back if using the SYMBOL 
JR Z,034A,K-LOOK-UP SHIFT key and a letter key. 

BIT 3,D Jump forward if currently in 

JR Z,0364,K-TOKENS 'K' mode. 

BIT 3,(FLAGS2) If CAPS LOCK is set then 

RET NZ return with the 'main code' 

INC B Also return in the same manner 
RET NZ if CAPS SHIFT is being pressed. 
ADD A,+20 However if lower case codes are 
RET required then +20 has to be 


added to the 'main code’ to give 
the correct ‘final code’. 


The ‘final code’ values for tokens are found by adding +A5 to the 'main code’. 


0364 


Next the digit keys; and SPACE, ENTER & both shifts; are considered. 


0367 


K-TOKENS ADD A,+A5 
RET 


Add the required offset and 
return. 


Proceed only with the digit keys. 
i.e. Return with SPACE (+20), 
ENTER (+0D) & both shifts 
(+0E). 

Now separate the digit keys into 
three groups - according to the 
mode. 

Jump with 'k’, 'L' & 'C' modes; 
and also with 'G' mode. 
Continue with 'E' mode. 

The base address for table 'f’. 
Use this table for SYMBOL 
SHIFT & a digit key in 

extended mode. 

Jump forward with digit keys 

'8' and '9'. 


The digit keys '0' to '7' in extended mode are to give either a ‘paper colour code’ or an 'ink colour code’ depending on the use of the 
CAPS SHIFT. 


The digit keys '8' and '9' are to give 'BRIGHT' & 'FLASH' codes. 


0382 


K-DIGIT cP +30 
RET Cc 
DEC Cc 
JP M,039D,K-KLC-DGT 
JR NZ,0389,K-GRA-DGT 
LD HL,+0254 
BIT 5,B 
JR Z,034A,K-LOOK-UP 
CP +38 
JR NC,0382,K-8-&-9 
SUB +20 
INC B 
RET Z 
ADD A,+08 
RET 


K-8-&-9 SUB +36 
INC B 
RET Z 
ADD A,+FE 
RET 


Reduce the range +30 to +37 
giving +10 to +17. 

Return with this ‘paper colour 
code' if the CAPS SHIFT is 

not being used. 

But if it is then the range is to 
be +18 to +1F instead - indicat- 
ing an 'ink colour code’. 


+38 & +39 go to +02 & +03. 
Return with these codes if CAPS 
SHIFT is not being used. (These 
are 'BRIGHT' codes.) 

Subtract '2' is CAPS SHIFT is 
being used; giving +00 & +01 (as 
'FLASH' codes). 


The digit keys in graphics mode are to give the block graphic characters (+80 to +8F), the GRAPHICS code (+0F) and the DELETE 


code (+0C). 
0389 K-GRA-DGT LD HL,+0230 
CP +39 
JR Z,034A,K-LOOK-UP 
CP +30 
JR Z,034A,K-LOOK-UP 
AND +07 
ADD A,+80 
INC B 
RET Z 
XOR +0F 


RET 


Finally consider the digit keys in 'kK’, 'L' & 'C' modes. 


039D 


K-KLC-DGT INC B 
RET Z 
BIT 5,B 
LD HL,+0230 
JR NZ,034A,K-LOOK-UP 


The base address of table 'd'. 
Use this table directly for 
both digit key '9' that is to give 
GRAPHICS, and digit key '0O' 
that is to give DELETE. 

For keys '1' to '8' make the 
range +80 to +87. 

Return with a value from this 
range if neither shift key is 
being pressed. 

But if 'shifted' make the range 
+88 to +8F. 


Return directly if neither shift 
key is being used. (Final codes 
+30 to +39.) 

Use table 'd' if the CAPS 
SHIFT key is also being 
pressed. 


The codes for the various digit keys and SYMBOL SHIFT can now be found. 


03B2 


K-@-CHAR 


SUB 


+10 

+22 
Z,03B2,K-@-CHAR 
+20 

NZ 

A,+5F 


A,+40 
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Reduce the range to give +20 to 
+29. 

Separate the '@' character 
from the others. 

The '-' character has also to be 
separated. 

Return now with the ‘final 
codes' +21, +23 to +29. 

Give the '-' character a 

code of +5F. 

Give the '@' character a code 
of +40. 


THE LOUDSPEAKER ROUTINES 


The two subroutines in this section are the BEEPER subroutine, that actually controls the loudspeaker, and the BEEP command 
routine. 

The loudspeaker is activated by having D4 low during an OUT instruction that is using port '254'. When D4 is high in a similar situation 
the loudspeaker is deactivated. A 'beep' can therefore be produced by regularly changing the level of D4. 

Consider now the note 'middle C' which has the frequency 261.63 hz. In order to get this note the loudspeaker will have to be 
alternately activated and deactivated every 1/523.26". of a second. In the SPECTRUM the system clock is set to run at 3.5 mhz. and 
the note of 'middle C' will require that the requisite OUT instruction be executed as close as possible to every 6,689 T states. This last 
value, when reduced slightly for unavoidable overheads, represents the ‘length of the timing loop' in the BEEPER subroutine. 


THE 'BEEPER' SUBROUTINE 

This subroutine is entered with the DE register pair holding the value 'f*t', where a note of given frequency 'f' is to have a duration of 't’ 
seconds, and the HL register pair holding a value equal to the number of T states in the ‘timing loop' divided by ‘4’. 

i.e. For the note 'middle C' to be produced for one second DE holds +0105 (INT(261.3 * 1)) and HL holds +066A (derived from 6,689/4 - 
30.125). 


03B5 BEEPER DI Disable the interrupt for the 
duration of a ‘beep’. 
LD A,L Save L temporarily. 
SRL L Each '1' in the L register is 
SRL L to count '4' T states, but take 


INT (L/4) and count '16' T 
states instead. 


CPL Go back to the original value 

AND +03 in L and find how many were 

LD C,A lost by taking INT (L/4). 

LD B,+00 

LD IX,+03D1 The base address of the timing 
loop. 

ADD IX,BC Alter the length of the timing 


loop. Use an earlier starting 
point for each '1' lost by taking 


INT (L/4). 
LD A,(BORDCR) Fetch the present border 
AND +38 colour and move it to bits 
RRCA 2, 1 & O of the A register. 
RRCA 
RRCA 
OR +08 Ensure the MIC output is ‘off’. 


Now enter the sound generation loop. 'DE' complete passes are made, i.e. a pass for each cycle of the note. 
The HL register holds the ‘length of the timing loop’ with '16' T states being used for each '1' in the L register and '1,024' T states for 
each '1' in the H register. 


03D1 BE-IX+3 NOP Add '4' T states for each 
03D2 BE-IX+2 NOP earlier entry port 
03D3 BE-IX+1 NOP that is used. 
03D4 BE-IX+0 INC B The values in the B & C registers 
INC Cc will come from H & L registers 
- see below. 
03D6 BE-H&L-LP DEC Cc The ‘timing loop’. 
JR NZ,03D6,BE-H&L-LP i.e. 'BC'* '4' T states. 
LD C,+3F (But note that at the half-cycle 
DEC B point - C will be equal to 
JP NZ,03D6,BE-H&L-LP 'L+1',) 
The loudspeaker is now alternately activated and deactivated. 
XOR +10 Flip bit 4. 
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OUT (+FE),A 


LD B,H 
LD C,A 
BIT 4A 
JR NZ,03F2,BE-AGAIN 


After a full cycle the DE register pair is tested. 


LD A.D 

OR E 

JR Z,03D6,BE-END 
LD A.C 

LD CL 

DEC DE 

JP (IX) 


The parameters for the second half-cycle are set up. 


03F2 BE-AGAIN LD (eve 
INC Cc 
JP (IX) 


Perform the OUT operation; 
leaving the border unchanged. 
Reset the B register. 

Save the A register. 

Jump if at the half-cycle 

point. 


Jump forward if the last 
complete pass has been 
made already. 

Fetch the saved value. 
Reset the C register. 
Decrease the pass counter. 
Jump back to the required 
starting location of the loop. 


Reset the C register. 

Add '16' T states as this path 
is shorter. 

Jump back. 


Upon completion of the 'beep' the maskable interrupt has to be enabled. 


03F6 BE-END El 
RET 


THE 'BEEP' COMMAND ROUTINE 


Enable interrupt. 
Finally return. 


The subroutine is entered with two numbers on the calculator stack. The topmost 
number represents the 'pitch' of the note and the number underneath it represents the ‘duration’. 


03F8 BEEP RST 0028,FP-CALC 
DEFB +31,duplicate 
DEFB +27, int 
DEFB +C0,st-mem-0 
DEFB +03,subtract 
DEFB +34,stk-data 
DEFB +EC,exponent+7C 
DEFB +6C,+98,+1F,+F5 
DEFB +04,multiply 
DEFB +A1,stk-one 
DEFB +0F, addition 
DEFB +38,end-calc 


Now perform several tests on i, the integer part of the 'pitch’. 


LD HL,+5C92 

LD A,(HL) 

AND A 

JR NZ,046C,REPORT-B 
INC HL 

LD C,(HL) 

INC HL 

LD B,(HL) 

LD A.B 

RLA 

SBC AA 

cP eS 

JR NZ,046C,REPORT-B 
INC HL 


cP (HL) 


The floating-point calculator is 
used to manipulate the two 
values - t & P. 

t,P,P 

t,P,I(where i = INT P) 

t,P,i (mem-0 holds i) 

t,P (where p is the fractional 
part of P) 

Stack the decimal value 'K’. 
0.0577622606 (which is a 
little below 12 V2-1) 

t,pK 

t,pK,1 

t,pK+1 


This is 'mem-0-1st' (MEMBOT). 
Fetch the exponent of i. 

Give an error if i is not in the 
integral (short) form. 

Copy the sign byte to the 

C register. 

Copy the low-byte to the 

B register; and to the A 
register. 

Again give report B if i does not 
satisfy the test: 

-128<=i<=+127 


JR NZ,046C,REPORT-B 


LD A,B Fetch the low-byte and test 
it further. 

ADD A,+3C 

JP P,0425,BE-i-OK Accept -60<=i<=67. 

JP PO,046C,REPORT-B Reject -128 to -61. 


Note: The range +70 to +127 will be rejected later on. 


The correct frequency for the 'pitch' i can now be found. 


0425 BE-i-OK LD B,+FA Start '6' octaves below middle C. 
0427 BE-OCTAVE INC B Repeatedly reduce i in order to 
SUB +0C find the correct octave. 
JR NC,0427,BE-OCTAVE 
ADD A,+0C Ass back the last subtraction. 
PUSH BC Save the octave number. 
LD HL,+046E The base address of the 'semi- 
tone table’. 
CALL 3406,LOC-MEM Consider the table and pass the 
CALL 33B4,STACK-NUM 'A th.' value to the calculator 


stack. (Call it C.) 


Now the fractional part of the 'pitch' can be taken into consideration. 


RST 0028,FP-CALC t, pK+1, C 
DEFB +04,multiply t, C(pK+1) 
DEFB +38,end-calc 


The final frequency f is found by modifying the ‘last value’ according to the octave number. 


POP AF Fetch the octave number. 

ADD A,(HL) Multiply the ‘last value’ by 

LD (HL),A '2 to the power of the octave 
number’. 

RST 0028,FP-CALC t, f 

DEFB +C0,st-mem-0 The frequency is put aside for 

DEFB +02,delete the moment in mem-0. 


Attention is now turned to the ‘duration’. 


DEFB +31,duplicate t,t 

DEFB +38,end-calc 

CALL 1E94,FIND-INT1 The value 'INT t' must be in 
CP +0B the range +00 to +0A. 

JR NC,046C,REPORT-B 


The number of complete cycles in the 'beep' is given by 'f*t' so this value is now found. 


RST 0028,FP-CALC t 
DEFB +E0,get-mem-0 ,f 
DEFB +04, multiply f*t 


The result is left on the calculator stack whilst the length of the ‘timing loop’ required for the 'beep' is computed; 


DEFB +E0,get-mem-0 ft, f 

DEFB +34,stk-data The value '3.5 * 10°/8' 
DEFB +80,four bytes is formed on the top of 
DEFB +43,exponent +93 the calculator stack. 
DEFB +55,+9F,+80,(+00) f*t, f, 437,500 (dec.) 
DEFB +01,exchange f*t, 437,500, f 

DEFB +05, division f*t, 437, 500/F 

DEFB +34,stk-data 

DEFB +35,exponent +85 

DEFB +71,(+00,+00,+00) f*t, 437,500/f, 30.125 (dec.) 
DEFB +03,subtract f*t, 437,500/f - 30.125 
DEFB +38,end-calc 
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Note: The value '437,500/f' gives the 'half-cycle’ length of the note and reducing it by '30.125' allows for '120.5' T states in which to 
actually produce the note and adjust the counters etc. 
The values can now be transferred to the required registers. 


CALL 1E99,FIND-INT2 The ‘timing loop' value is 
compressed into the BC 
PUSH BC register pair; and saved. 


Note: If the timing loop value is too large then an error will occur (returning via ERROR-1); thereby excluding 'pitch' values of '+70 to 
+127". 


CALL 1E99,FIND-INT2 The 'f*t' value is compressed 
into the BC register pair. 

POP HL Move the 'timing loop' value to 
the HL register pair. 

LD D,B Move the 'f*t' value to the 

LD E,C DE register pair. 


However before making the 'beep' test the value ‘f*t'. 


LD A,D Return if 'f*t' has given the 

OR E result of 'no cycles' 

RET Z required. 

DEC DE Decrease the cycle number and 
JP 03B5,BEEPER jump to the BEEPER subroutine 


(making, at least, one pass). 
Report B - integer out of range 


046C REPORT-B RST 0008,ERROR-1 Call the error handling 
DEFB +0A routine. 


THE 'SEMI-TONE' TABLE 


This table holds the frequencies of the twelve semi-tones in an octave. 


frequency hz. note 


046E DEFB +89,+02,+D0,+12,+86 261.63 Cc 
DEFB +89,+0A,+97,+60,+75 277.18 C# 
DEFB +89,4+12,+D5,+17,4+1F 293.66 D 
DEFB +89,+1B,+90,+41,+02 311.12 D# 
DEFB +89,+24,+D0,+53,+CA 329.63 E 
DEFB +89,+2E,+9D,+36,+B1 349.23 F 
DEFB +89,+38,+FF,+49,+3E 369.99 F# 
DEFB +89,+43,+FF,+6A,+73 392 G 
DEFB +89,+4F,+A7,+00,+54 415.30 G# 
DEFB +89,+5C,+00,+00,+00 440 A 
DEFB +89,+69,+14,+F6,+24 466.16 A# 
DEFB +89,+76,+F1,+10,+05 493.88 B 


THE 'PROGRAM NAME' SUBROUTINE (ZX81) 


The following subroutine applies to the ZX81 and was not removed when the program was rewritten for the SPECTRUM. 


04AA DEFB +CD,+FB,+24,+3A 
DEFB +3B,+5C,+87,+FA 
DEFB +8A,+1C,+E1,+D0 
DEFB +E5,+CD,+F1,+2B 
DEFB +62,+6B,+0D,+F8 
DEFB +09,+CB,+FE,+C9 
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THE CASSETTE HANDLING ROUTINES 


The 16K monitor program has an extensive set of routines for handling the cassette interface. In effect these routines form the SAVE, 
LOAD, VERIFY & MERGE command routines. 

The entry point to the routines is at SAVE-ETC (0605). However before this point are the subroutines concerned with the actual 
SAVEing and LOADing (or VERIFYing) of bytes. 

In all cases the bytes to be handled by these subroutines are described by the DE register pair holding the ‘length’ of the block, the IX 
register pair holding the 'base address’ and the A register holding +00 for a header block, or +FF for a program/data block. 


THE 'SA-BYTES' SUBROUTINE 
This subroutine is called to SAVE the header information (from O9BA) and later the actual program/data block (from O99E). 


04C2 SA-BYTES LD HL,+053F Pre-load the machine stack with 

PUSH HL the address - SA/LD-RET. 

LD HL,+1F80 This constant will give a leader 
of about 5 secs. for a 'header’. 

BIT 7,A Jump forward if SAVEing a 

JR Z,04D0,SA-FLAG header. 

LD HL,+0C98 This constant will give a leader 
of about 2 secs. for a program/ 
data block. 

04D0 SA-FLAG EX AF,A'F' The flag is saved. 

INC DE The ‘length’ is incremented 

DEC IX and the 'base address' reduced 
to allow for the flag. 

DI The maskable interrupt is 
disabled during the SAVE. 

LD A,+02 Signal 'MIC on' and border to 
be RED. 

LD BA Give a value to B. 


A loop is now entered to create the pulses of the leader. Both the 'MIC on' and the 'MIC off pulses are 2,168 T states in length. The 
colour of the border changes from RED to CYAN with each ‘edge’. 


Note: 


04D8 


SA-LEADER DJNZ 04D8,SA-LEADER 


An ‘edge’ will be a transition either from 'on' to ‘off’, or from 'off' to ‘on’. 


The main timing period. 


OUT (+FE),A MIC on/off, border RED/CYAN, 

XOR +0F on each pass. 

LD B,+A4 The main timing constant. 

DEC L Decrease the low counter. 

JR NZ,04D8,SA-LEADER Jump back for another pulse. 

DEC B Allow for the longer path 
(-reduce by 13 T states). 

DEC H Decrease the high counter. 

JP P,04D8,SA-LEADER Jump back for another pulse 


A sync pulse is now sent. 


until completion of the leader. 


LD B,+2F 

04EA SA-SYNC-1.  DJNZ 04EA,SA-SYNC-1 MIC off for 667 T states from 
‘OUT to OUT'. 

OUT (+FE),A MIC on and RED. 

LD A,+0D Signal 'MIC off & CYAN'. 

LD B,+37 MIC on for 735 T States from 
04F2 SA-SYNC-2. DJNZ 04F2,SA-SYNC-2 ‘OUT to OUT". 

OUT (+FE),A Now MIC off & border CYAN. 


The header v. program/data flag will be the first byte to be SAVEd. 
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LD BC,+3B0E +3B is a timing constant; +OE 
signals 'MIC off & YELLOW'. 


EX AF,A'F' Fetch the flag and pass it to the 

LD LA L register for 'sending’. 

JP 0507,SA-START Jump forward into the SAVEing 
loop. 


The byte SAVEing loop is now entered. The first byte to be SAVEd is the flag; this is followed by the actual data byte and the final byte 
sent is the parity byte that is built up by considering the values of all the earlier bytes. 


O4FE SA-LOOP LD A,D The ‘length’ counter is tested 
OR E and the jump taken when it 
JR Z,050E,SA-PARITY has reached zero. 
LD L,(IX+00) Fetch the next byte that is to 

be SAVEd. 

0505 SA-LOOP-P LD A,H Fetch the current ‘parity’. 
XOR L Include the present byte. 

0507 SA-START LD H,A Restore the 'parity'. Note that 


on entry here the ‘flag’ value 
initialises ‘parity’. 


LD A,+01 Signal 'MIC on & BLUE". 

SCF Set the carry flag. This will act 
as a 'marker' for the 8 bits of a 
byte. 

JP 0525,SA-8-BITS Jump forward. 


When it is time to send the 'parity' byte then it is transferred to the L register for SAVEing. 


050E SA-PARITY LD L,H Get final ‘parity’ value. 
JR 0505,SA-LOOP-P Jump back. 


The following inner loop produces the actual pulses. The loop is entered at SA-BIT-1 with the type of the bit to be SAVEd indicated by 
the carry flag. Two passes of the loop are made for each bit thereby making an 'off pulse’ and an 'on pulse’. The pulses for a reset bit 
are shorter by 855 T states. 


0511 SA-BIT-2 LD A,C Come here on the second pass 
and fetch 'MIC off & YELLOW'. 
BIT 7,B Set the zero flag to show 
‘second pass’. 
0514 SA-BIT-1 DJNZ 0514,SA-BIT-1 The main timing loop; always 
801 T states on a 2nd. pass. 
JR NC,051C,SA-OUT Jump, taking the shorter path, if 
SAVEing a '0'. 
LD B,+42 However if SAVEing a '1' then 
051A SA-SET DJNZ 051A,SA-SET add 855 T states. 
051C SA-OUT OUT (+FE),A On the 1st. pass 'MIC on & 


BLUE' and on the 2nd. pass 
‘MIC off & YELLOW'. 


LD B,+3E Set the timing constant for 
the second pass. 
JR NZ,0511,SA-BIT-2 Jump back at the end of the 
DEC B first pass; otherwise reclaim 
13 T states. 
XOR A Clear the carry flag and set 
INC A A to hold +01 (MIC on & BLUE} 
before continuing into the 
'8 bit loop’. 


The '8 bit loop' is entered initially with the whole byte in the L register and the carry flag set. However it is re-entered after each bit has 
been SAVEd until the point is reached when the 'marker' passes to the carry flag leaving the L register empty. 


0525 SA-8-BITS RL L Move bit 7 to the carry and the 
‘marker’ leftwards. 


16 


053C SA-DELAY  DJNZ 


NZ,0514,SA-BIT-1 


NZ,04FE,SA-LOOP 


B,+3B 
053C,SA-DELAY 


SAVE the bit unless finished 
with the byte. 

Decrease the ‘counter’. 
Advance the 'base address’. 
Set the timing constant for the 
first bit of the next byte. 
Return (to SA/LD-RET) if the 
BREAK key is being pressed. 


Otherwise test the 'counter’ 

and jump back even if it has 
reached zero (so as to send the 
‘parity’ byte). 

Exit when the ‘counter’ 

reaches +FFFF. But first 

give a short delay. 


Note: A reset bit will give a 'MIC off pulse of 855 T states followed by a 'MIC on' pulse of 855 T states. Whereas a Set bit will give 
pulses of exactly twice as long. Note also that there are no gaps either between the sync pulse and the first bit of the flag, or between 


bytes. 


THE 'SA/LD-RET' SUBROUTINE 
This subroutine is common to both SAVEing and LOADing. 
The border is set to its original colour and the BREAK key tested for a last time. 


053F SA/LD-RET PUSH 


Report D - BREAK-CONT repeats 


0552 REPORT-D RST 
DEFB 


Continue here. 


0554 SA/LD-END POP 
RET 


AF 


A,(BORDCR) 


+38 


(+FE),A 


A.+7F 


A,(+FE) 


C,0554,SA/LD-END 


0008,ERROR-I 
+0C 


AF 


THE 'LD-BYTES' SUBROUTINE 
This subroutine is called to LOAD the header information (from 07BE) and later LOAD, or VERIFY, an actual block of data (from 0802). 


0556 LD-BYTES INC 


EX 


DEC 


D 


AF,A‘F' 


Save the carry flag. (It is reset 
after a LOADing error.) 

Fetch the original border colour 
from its system variable. 

Move the border colour 

to bits 2, 1 & 0. 

Set the border to its original 
colour. 

Read the BREAK key for a 

last time. 


Enable the maskable interrupt. 
Jump unless a break is to be 
made. 


Call the error handling 
routine. 


Retrieve the carry flag. 
Return to the calling routine. 


This resets the zero flag. (D 
cannot hold +FF.) 

The A register holds +00 for a 
header and +FF for a block of 
data. 

The carry flag is reset for 
VERIFYing and set for 
LOADing. 

Restore D to its original value. 


DI The maskable interrupt is now 


disabled. 
LD A,+0F The border is made WHITE. 
OUT (+FE),A 
LD HL,+053F Preload the machine stack 
PUSH HL with the address - SA/LD-RET. 
IN A,(+FE) Make an initial read of port '254" 
RRA Rotate the byte obtained but 
AND +20 keep only the EAR bit, 
OR +02 Signal 'RED' border. 
LD CA Store the value in the C register. - 
(+22 for 'off' and +02 for 'on' 
- the present EAR state.) 
CP A Set the zero flag. 


The first stage of reading a tape involves showing that a pulsing signal actually exist (i.e. 'On/off' or 'off/on' edges.) 


056B LD-BREAK RET NZ Return if the BREAK key is 
being pressed. 
056C LD-START CALL 05E7,LD-EDGE-1 Return with the carry flag reset 
JR NC,056B,LD-BREAK if there is no 'edge' within 


approx. 14,000 T states. But if 
an 'edge' is found the border 
will go CYAN. 


The next stage involves waiting a while and then showing that the signal is still pulsing. 


LD HL,+0415 The length of this waiting 
0574 LD-WAIT DJNZ 0574,LD-WAIT period will be almost one 

DEC HL second in duration. 

LD A,H 

OR L 

JR NZ,0574,LD-WAIT 

CALL 05E3,LD-EDGE-2 Continue only if two edges are 

JR NC,056B,LD-BREAK found within the allowed time 

period. 


Now accept only a ‘leader signal’. 


0580 LD-LEADER LD B,+9C The timing constant, 

CALL 05E3,LD-EDGE-2 Continue only if two edges are 

JR NC,056B,LD-BREAK found within the allowed time 
period. 

LD A,+C6 However the edges must have 

CP B been found within about 

JR NC,056C,LD-START 3,000 T states of each other 

INC H Count the pair of edges in the H 

JR NZ,0580,LD-LEADER register until '256' pairs have 
been found. 


After the leader come the 'off' and 'on' part's of the sync pulse. 


058F LD-SYNC LD B,+C9 The timing constant. 
CALL 05E7,LD-EDGE-1 Every edge is considered until 
JR NC,056B,LD-BREAK two edges are found close 
LD A,B together - these will be the 
CP +D4 start and finishing edges of 
JR NC,058F,LD-SYNC the 'off' sync pulse. 
CALL 05E7,LD-EDGE-1 The finishing edge of the 
RET NC ‘on' pulse must exist. 


(Return carry flag reset.) 
The bytes of the header or the program/data block can now be LOADed or VERIFied. But the first byte is the type flag. 


LD A,C The border colours from now 
XOR +03 on will be BLUE & YELLOW. 
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LD C,A 

LD H,+00 

LD B,+BO 

JR 05C8,LD-MARKER 


Initialise the 'parity matching’ 
byte to zero. 

Set the timing constant for the 
flag byte. 

Jump forward into the byte 
LOADING loop. 


The byte LOADing loop is used to fetch the bytes one at a time. The flag byte is first. This is followed by the data bytes and the last byte 


is the 'parity' byte. 


05A9. LD-LOOP EX AF,A\'F' 
JR NZ,05B3,LD-FLAG 
JR NC,05BD,LD-VERIFY 
LD (IX+00),L 
JR 05C2,LD-NEXT 
05B3. LD-FLAG ~~ RL C 
XOR L 
RET NZ 
LD A.C 
RRA 
LD CA 
INC DE 
JR 05CA,LD-DEC 


Fetch the flags. 

Jump forward only when 
handling the first byte. 

Jump forward if VERIFYing a 
tape. 

Make the actual LOAD when 
required. 

Jump forward to LOAD the 
next byte. 

Keep the carry flag in a safe 
place temporarily. 

Return now if the type flag does 
not match the first byte on the 
tape. (Carry flag reset.) 
Restore the carry flag now. 


Increase the counter to 
compensate for its 'decrease' 
after the jump. 


If a data block is being verified then the freshly loaded byte is tested against the original byte. 


05BD LD-VERIFY LD A,(IX+00) 
XOR L 
RET NZ 


A new byte can now be collected from the tape. 


05C2 LD-NEXT INC IX 
05C4 LD-DEC DEC DE 
EX AF,A‘F' 
LD B,+B2 
05C8 LD-MARKER LD L,+01 


The 'LD-8-BITS' loop is used to build up a byte in the L register. 


05CA LD-8-BITS CALL 05E3,LD-EDGE-2 
RET NC 
LD A,+C5 
cP B 
RL Li: 
LD B,+BO 
JP NC,05CA,LD-8-BITS 


The ‘parity matching’ byte has to be updated with each new byte. 
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Fetch the original byte. 

Match it against the new byte. 
Return if 'no match’. (Carry 
flag reset.) 


Increase the ‘destination’. 
Decrease the 'counter’. 

Save the flags. 

Set the timing constant. 

Clear the ‘object’ register apart 
from a ‘marker’ bit. 


Find the length of the 'off and 
‘on’ pulses of the next bit. 
Return if the time period is 
exceeded. (Carry flag reset.) 
Compare the length against 
approx. 2,400 T states; resetting 
the carry flag for a '0' and 
setting it fora '1'. 

Include the new bit in the L 
register. 

Set the timing constant for the 
next bit. 

Jump back whilst there are still 
bits to be fetched. 


LD A,H Fetch the 'parity matching’ 


XOR L byte and include the new byte. 
LD H,A Save it once again. 
Passes round the loop are made until the 'counter' reaches zero. At that point the 'parity matching’ byte should be holding zero. 
LD A,D Make a further pass if the DE 
OR E register pair does not hold 
JR NZ,05A9,LD-LOOP zero. 
LD A,H Fetch the 'parity matching’ 
byte. 
CP +01 Return with the carry flat set 
RET if the value is zero. 


(Carry flag reset if in error.) 


THE 'LD-EDGE-2' AND 'LD-EDGE-1' SUBROUTINES 
These two subroutines form the most important part of the LOAD/VERIFY operation. 
The subroutines are entered with a timing constant in the B register, and the previous border colour and 'edge-type' in the C register. 
The subroutines return with the carry flag set if the required number of 'edges' have been found in the time allowed; and the change 
to the value in the B register shows just how long it took to find the 'edge(s)’. 
The carry flag will be reset if there is an error. The zero flag then signals 'BREAK pressed' by being reset, or 'time-up' by being set. 
The entry point LD-EDGE-2 is used when the length of a complete pulse is required and LD-EDGE-1 is used to find the time before 
the next 'edge’. 


05E3 LD-EDGE-2 CALL 05E7,LD-EDGE-1 In effect call LD-EDGE-1 twice; 
RET NC returning in between if there 
is an error. 
05E7 LD-EDGE-1 LD A,+16 Wait 358 T states before 
O05E9 LD-DELAY DEC A entering the sampling loop. 
JR NZ,05E9,LD-DELAY 
AND A 


The sampling loop is now entered. The value in the B register is incremented for each pass; 'time-up' is given when B reaches zero. 


05ED LD-SAMPLE INC B Count each pass. 

RET Z Return carry reset & zero set if 
‘time-up'. 

LD A,+7F Read from port +7FFE. 

IN A,(+FE) i.e. BREAK & EAR. 

RRA Shift the byte. 

RET NC Return carry reset & zero reset 
if BREAK was pressed. 

XOR Cc Now test the byte against the 

AND +20 ‘last edge-type'; jump back 

JR Z,05ED,LD-SAMPLE unless it has changed. 


A new 'edge' has been found within the time period allowed for the search. So change the border colour and set the carry flag. 


LD A,C Change the ‘last edge-type' 

CPL and border colour. 

LD CA 

AND +07 Keep only the border colour. 

OR +08 Signal 'MIC off". 

OUT (+FE),A Change the border colour (RED/ 
CYAN or BLUE/YELLOW). 

SCF Signal the successful search 

RET before returning. 


Note: The LD-EDGE-1 subroutine takes 465 T states, plus an additional 58 T states for each unsuccessful pass around the sampling 
loop. 
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For example, therefore, when awaiting the sync pulse (see LD-SYNC at 058F) allowance is made for ten additional passes through the 
sampling loop. The search is thereby for the next edge to be found within, roughly, 1,100 T states (465 + 10 * 58 + overhead). This will 
prove successful for the sync ‘off pulse that comes after the long ‘leader pulses’. 


THE 'SAVE, LOAD, VERIFY & MERGE' COMMAND ROUTINES 
The entry point SAVE-ETC is used for all four commands. The value held in T-ADDR however distinguishes between the four 
commands. The first part of the following routine is concerned with the construction of the 'header information’ in the work space. 


0605 SAVE-ETC POP 


0621 SA-SPACE = RST 


0629 SA-BLANK LD 


Report F - Invalid file name 


0642 REPORT-F = RST 
DEFB 


AF 
A,(T-ADDR-Io) 
+E0 

(T-ADDR-lo),A 


1C8C,EXPT-EXP 


2530,SYNTAX-Z 
Z,0652,SA-DATA 
BC,+0011 
A,(T-ADDR-Io) 

A 
Z,0621,SA-SPACE 
C,+22 
0030,BC-SPACES 


0629,SA-BLANK 
(IX+01),+FF 
2BF1,STK-FETCH 


HL,+FFF6 
BC 


NC,064B,SA-NAME 
A,(T-ADDR-Io) 

A 
NZ,0644,SA-NULL 


0008,ERROR-1 
+0E 


Continue to handle the name of the program. 


0644 SA-NULL LD 


A,B 

Cc 
Z,0652,SA-DATA 
BC,+000A 


Drop the address - SCAN-LOOP. 
Reduce T-ADDR-lo by +E0; 
giving +00 for SAVE, +01 for 
LOAD, +02 for VERIFY and 
+03 for MERGE. 

Pass the parameters of the 
‘name’ to the calculator stack. 
Jump forward if checking 
syntax. 

Allow seventeen locations 

for the header of a SAVE but 
thirty four for the other 
commands. 


The required amount of space is 
made in the work space. 
Copy the start address to the 
IX register pair. 

A program name can have 
up to ten characters but 

first enter eleven space 
characters into the prepared 
area. 

A null name is +FF only. 

The parameters of the name 
are fetched and its length is 
tested. 

This is '-10'. 

In effect jump forward if the 
length of the name is not 

too long. (i.e. No more than 
ten characters.) 

But allow for the LOADing, 
VERIFYing and MERGEing of 
programs with 'null' names or 
extra long names. 


Call the error handling 
routine. 


Jump forward if the name 
has a ‘null’ length. 


But truncate longer names. 


The name is now transferred to the work space (second location onwards). 


064B SA-NAME 
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Copy the start address to the 
HL register pair. 

Step to the second location. 
Switch the pointers over and 
copy the name. 


The many different parameters, if any, that follow the command are now considered. Start by handling 'xxx "name" DATA’. 


0652 SA-DATA RST 0018,GET-CHAR Is the present code the 

CP +E4 token 'DATA'? 

JR NZ,06A0,SA-SCR$ Jump if not. 

LD A,(T-ADDR-lo) However it is not possible 

CP +03 to have 'MERGE name DATA’. 

JP Z,1C8A,REPORT-C 

RST 0020,NEXT-CHAR Advance CH-ADD. 

CALL 28B2,LOOK-VARS Look in the variables area for 
the array. 

SET 7,C Set bit 7 of the array's name. 

JR NC,0672,SA-V-OLD Jump if handling an existing 
array. 

LD HL,+0000 Signal 'using a new array’. 

LD A,(T-ADDR-lo) Consider the value in T-ADDR 

DEC A and give an error if trying to 

JR Z,0685,SA-V-NEW SAVE or VERIFY a new array. 


Report 2 - Variable not found 


0670 REPORT-2 RST 0008,ERROR-1 Call the error handling 
DEFB +01 routine. 


Continue with the handling of an existing array. 


0672 SA-V-OLD JP NZ,1C8A,REPORT-C Note: This fails to exclude 

simple strings. 

CALL 2530,SYNTAX-Z Jump forward if checking 

JR Z,0692,SA-DATA-1 syntax. 

INC HL Point to the ‘low length’ of the 
variable. 

LD A,(HL) The low length byte goes into 

LD (IX+0B),A the work space; followed by 

INC HL the high length byte. 

LD A,(HL) 

LD (IX+0C),A 

INC HL Step past the length bytes. 


The next part is common to both 'old' and 'new' arrays. Note: Syntax path error. 


0685 SA-V-NEW LD (IX+0E),C Copy the array's name. 
LD A,+01 Assume an array of numbers. 
BIT 6,C Jump if it is so. 
JR Z,068F,SA-V-TYPE 
INC A It is an array of characters. 
068F SA-V-TYPE LD (IX+00),A Save the ‘type’ in the first 


location of the header area. 


The last part of the statement is examined before joining the other pathways. 


0692 SA-DATA-1 EX DE,HL Save the pointer in DE. 
RST 0020,NEXT-CHAR Is the next character 
CP +29 a'y'? 
JR NZ,0672,SA-V-OLD Give report C if it is not. 
RST 0020,NEXT-CHAR Advance CH-ADD. 
CALL 1BEE,CHECK-END Move on to the next statement 
if checking syntax. 
EX DE,HL Return the pointer to the HL 
JP 075A,SA-ALL register pair before jumping 


forward. (The pointer indicates 
the start of an existing array's 
contents.) 

Now consider 'SCREEN$". 


O6A0 SA-SCR$ CP +AA Is the present code the 
token SCREENS". 
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Now consider 'CODE'. 


06C3 SA-CODE CP 


JR 


O6E1 SA-CODE-1 CALL 


O6FO SA-CODE-2 CALL 


Fetch the ‘length’ as it was specified. 


O6F5 SA-CODE-3 RST 
CALL 


The parameters are now stored in the header area of the work space. 


O6F9 SA-CODE-4 CALL 


NZ,06C3,SA-CODE 
A,(T-ADDR-Io) 

+03 
Z,1C8A,REPORT-C 
0020,NEXT-CHAR 
1BEE,CHECK-END 


(IX+0B),+00 
(IX+0C),+1B 


HL,+4000 
(IX+0D),L 
(IX+0E),H 
0710,SA-TYPE-3 


+AF 


NZ,0716,SA-LINE 
A,(T-ADDR-Io) 

+03 
Z,1C8A,REPORT-C 
0020,NEXT-CHAR 
2048,PR-ST-END 
NZ,06E1,SA-CODE-1 
A,(T-ADDR-Io) 

A 
Z,1C8A,REPORT-C 
1CE6,USE-ZERO 


O6FO0,SA-CODE-2 


1C82,EXPT-1NUM 
0018,GET-CHAR 
+2C 
Z,06F5,SA-CODE-3 


A,(T-ADDR-Io) 
A 
Z,1C8A,REPORT-C 
1CE6,USE-ZERO 


O6F9,SA-CODE-4 


0020,NEXT-CHAR 
1082,EXPT-1NUM 


1BEE,CHECK-END 


1£99,FIND-INT2 
(IX+0B),C 
(IX+0C),B 
1E99,FIND-INT2 
(IX+O0D),C 
(IX+0E),B 

H,B 

ees 


'SCREEN$' and 'CODE' are both of type 3. 


0710 SA-TYPE-3 LD 


(IX+00),+03 


Jump if not. 
However it is not possible to 
have 'MERGE name SCREENS$'. 


Advance CH-ADD. 

Move on to the next statement 
if checking syntax. 

The display area and the 
attribute area occupy +1800 
locations and these locations 
start at +4000; these details 
are passed to the header area 
in the work space. 

Jump forward. 


Is the present code the token 
‘CODE’? 

Jump if not. 

However it is not possible to 
have 'MERGE name CODE". 


Advance CH-ADD. 

Jump forward if the statement 
has not finished. 

However it is not possible to 
have 'SAVE name CODE' by 
itself. 

Put a zero on the calculator 
stack - for the ‘start’. 

Jump forward. 


Fetch the first number. 

ls the present character a',' 
or not? 

Jump if it is - the number was 
a'starting address’. 

However refuse 'SAVE name 
CODE' that does not have a 
‘start’ and a ‘length’. 

Put a zero on the calculator 
stack - for the ‘length’. 

Jump forward. 


Advance CH-ADD. 
Fetch the ‘length’. 


But move on to the next state- 
ment now if checking syntax. 
Compress the ‘length’ into 

the BC register pair and 

store it. 

Compress the 'starting address’ 
into the BC register pair 

and store it. 

Transfer the ‘pointer’ to the 

HL register pair as usual. 


Enter the ‘type’ number. 


JR 075A,SA-ALL Rejoin the other pathways. 


Now consider 'LINE'; and 'no further parameters’. 


0716 SA-LINE CP +CA Is the present code the token 

‘LINE'? 

JR Z,0723,SA-LINE-1 Jump if it is. 

CALL 1BEE,CHECK-END Move on to the next statement 
if checking syntax. 

LD (IX+0E),+80 When there are no further 
parameters an +80 is entered. 

JR 073A,SA-TYPE-0 Jump forward. 


Fetch the ‘line number’ that must follow 'LINE’. 


0723 SA-LINE-1 LD A,(T-ADDR-lo) However only allow 'SAVE 

AND A name LINE number’. 

JP NZ,1C8A,REPORT-C 

RST 0020,NEXT-Char Advance CH-ADD. 

CALL 1C82,EXPT-1NUM Pass the number to the 
calculator stack. 

CALL 1BEE,CHECK-END Move on to the next statement 
if checking syntax. 

CALL 1E99,FIND-INT2 Compress the ‘line number' 

LD (IX+0D),C into the BC register pair 

LD (IX+0E),B and store it. 


‘LINE’ and 'no further parameters’ are both of type 0. 
073A SA-TYPE-0 LD (IX+00),+00 Enter the 'type' number. 


The parameters that describe the program, and its variables, are found and stored in the header area of the work space. 


LD HL,(E-LINE) The pointer to the end of the 
variables area. 

LD DE,(PROG) The pointer to the start of the 
BASIC program. 

SCF Now perform the subtraction 

SBC HL,DE to find the length of the 

LD (IX+0B),L ‘program + variables’; store 

LD (IX+0C),H the result. 

LD HL,(VARS) Repeat the operation but this 

SBC HL,DE time storing the length of the 

LD (IX+0F),L ‘program’ only. 

LD (IX+10),H 

EX DE,HL Transfer the ‘pointer’ to the 


HL register pair as usual. 
In all cases the header information has now been prepared. 
The location 'IX+00' holds the type number. 
Locations 'IX+01 to IX+0A' holds the name (+FF in 'IX+01' if null). 
Locations 'IX+0B & IX+0C' hold the number of bytes that are to be found in the ‘data block’. 
Locations 'IX+0D to IX+10' hold a variety of parameters whose exact interpretation depends on the ‘type’. 


The routine continues with the first task being to separate SAVE from LOAD, VERIFY and MERGE. 


075A SA-ALL LD A,(T-ADDR-lo) Jump forward when handling 
AND A a SAVE command. 
JP Z,0970,SA-CONTRL 


In the case of a LOAD, VERIFY or MERGE command the first seventeen bytes of the 'header area’ in the work space hold the prepared 
information, as detailed above; and it is now time to fetch a 'header' from the tape. 


PUSH HL Save the ‘destination’ pointer. 
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LD BC,+0011 Form in the IX register pair 
ADD IX,BC the base address of the 'second 
header area’. 


Now enter a loop; leaving it only when a ‘header’ has been LOADed. 


0767 LD-LOOK-H PUSH IX Make a copy of the base address. 
LD DE,+0011 LOAD seventeen bytes. 
XOR A Signal 'header'. 
SCF Signal 'LOAD'. 
CALL 0556,LD-BYTES Now look for a header. 
POP IX Retrieve the base address. 
JR NC,0767,LD-LOOK-H Go round the loop until 
successful. 


The new ‘header’ is now displayed on the screen but the routine will only proceed if the 'new' header matches the 'old' header. 


LD A,+FE Ensure that channel 'S' 

CALL 1601,CHAN-OPEN is open. 

LD (SCR-CT),+03 Set the scroll counter. 

LD C,+80 Signal 'names do not match’. 

LD A,(IX+00) Compare the 'new' type 

CP (IX-11) against the ‘old’ type. 

JR NZ,078A,LD-TYPE Jump if the 'types' do not 
match. 

LD C,+F6 But if they do; signal 'ten 
characters are to match’. 

078A LD-TYPE CP +04 Clearly the 'header' is 
JR NC,0767,LD-LOOK-H nonsense if 'type 4 or more’. 


The appropriate message - 'Program:’, 'Number array:’, ‘Character array:' or 'Bytes:’ is printed. 


LD DE,+09CO The base address of the message 
block. 

PUSH BC Save the C register whilst 

CALL OCOA,PO-MSG the appropriate message is 

POP BC printed. 


The 'new name' is printed and as this is done the 'old' and the 'new' names are compared. 


PUSH IX Make the DE register pair 

POP DE point to the 'new type’ and 

LD HL,+FFFO the HL register pair to the 

ADD HL,DE ‘old name’. 

LD B,+0A Ten characters are to be 
considered. 

LD A,(HL) Jump forward if the match is 

INC A to be against an actual name. 

JR NZ,07A6,LD-NAME 

LD A,C But if the ‘old name’ is 'null' 

ADD A,B then signal 'ten characters 

LD CA already match’. 


A loop is entered to print the characters of the 'new name’. The name will be accepted if the 'counter’ reaches zero, at least. 


07A6 LD-NAME INC DE Consider each character of the 
LD A,(DE) ‘new name' in turn. 
CP (HL) Match it against the appropriate 
INC HL character of the ‘old name’. 
JR NZ,07AD,LD-CH-PR Do not count it if it does not 
INC Cc does not match. 

07AD LD-CH-PR RST 0010,PRINT-A-1 Print the 'new' character. 
DJNZ 07A6,LD-NAME Loop for ten characters. 
BIT 7,C Accept the name only if the 
JR NZ,0767,LD-LOOK-H counter has reached zero. 
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LD A,+0D Follow the 'new name' with 
RST 0010,PRINT-A-1 a ‘carriage return’. 


The correct header has been found and the time has come to consider the three commands LOAD, VERIFY, & MERGE separately. 


POP HL Fetch the pointer. 

LD A,(IX+00) 'SCREEN$ and CODE' are 

CP +03 handled with VERIFY. 

JR Z,07CB,VR-CONTRL 

LD A,(T-ADDR-lo) Jump forward if using a 

DEC A LOAD command. 

JP Z,0808,LD-CONTRL 

CP +02 Jump forward if using a MERGE 
JP Z,08B6,ME-CONTRL command; continue with a 


VERIFY command. 


THE 'VERIFY' CONTROL ROUTINE 
The verification process involves the LOADing of a block of data, a byte at a time, but the bytes are not stored - only checked. This 
routine is also used to LOAD blocks of data that have been described with 'SCREEN$ & CODE". 


07CB VR-CONTRL PUSH HL Save the ‘pointer’. 
LD L,(IX-06) Fetch the 'number of bytes’ 
LD H,(IX-05) as described in the 'old' header. 
LD E,(IX+0B) Fetch also the number from the 
LD D,(IX+0C) ‘new' header. 
LD A,H Jump forward if the ‘length’ is 
OR L unspecified. 
JR Z,07E9,VR-CONT-1 e.g. 'LOAD name CODE' only. 
SBC HL,DE Give report R if attempting 
JR C,0806,REPORT-R to LOAD a larger block than has 

been requested. 

JR Z,07E9,VR-CONT-1 Accept equal ‘lengths’. 
LD A,(IX+00) Also give report R if trying 
CP +03 to VERIFY blocks that are of 
JR NZ,0806,REPORT-R unequal size. (‘Old length’ 


greater than 'new length’.) 


The routine continues by considering the ‘destination pointer’. 


07E9 VR-CONT-1 POP HL Fetch the 'pointer’, i.e. the 
‘start’. 
LD A,H This ‘pointer’ will be used 
OR L unless it is zero, in which 
JR NZ,07F4,VR-CONT-2 case the 'start' found in 
LD L,(IX+0D) the 'new' header will be used 
LD H,(IX+0E) instead. 


The VERIFY/LOAD flag is now considered and the actual LOAD made. 


07F4 VR-CONT-2 PUSH HL Move the 'pointer' to the 
POP IX IX register pair. 
LD A,(T-ADDR-lo) Jump forward unless using 
CP +02 the VERIFY command; with 
SCF the carry flag signalling 
JR NZ,0800,VR-CONT-3 ‘LOAD' 
AND A Signal 'VERIFY'. 

0800 VR-CONT-3 LD A,+FF Signal ‘accept data block only' 


before LOADing the block. 


THE 'LOAD A DATA BLOCK’ SUBROUTINE 


This subroutine is common to all the 'LOADing' routines. In the case of LOAD & VERIFY it acts as a full return from the cassette 
handling routines but in the case of MERGE the data block has yet to be 'MERGEd". 


0802 LD-BLOCK CALL 0556,LD-BYTES LOAD/VERIFY a data block. 
RET Cc Return unless an error. 
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Report R - Tape loading error 


0806 REPORT-R = RST 


DEFB 


0008,ERROR-1 
+1A 


THE 'LOAD' CONTROL ROUTINE 


This routine controls the LOADing of a BASIC program, and its variables, or an array. 


0808 LD-CONTRL LD 


Consider now if there is enough room in 


0819 LD-CONT-1 LD 


Make the actual test for room. 


0825 LD-CONT-2 LD 


Now deal with the LOADing of arrays. 


082E LD-DATA POP 


E,(IX+0B) 
D,(IX+0C) 

HL 

AH 

L 
NZ,0819,LD-CONT-1 


DE,HL 
0825,LD-CONT-2 


Call the error handling 
routine. 


Fetch the 'number of bytes’ 
as given in the 'new header’. 
Save the ‘destination pointer’. 
Jump forward unless trying 
to LOAD a previously 
undeclared array. 

Add three bytes to the 
length - for the name, the 
low length & the high length 
of a new variable. 

Jump forward. 


memory for the new data block. 


L,(IX-06) 
H,(IX-05) 
DE,HL 


HL,DE 
C,082E,LD-DATA 


DE,+0005 


C,L 
1F05,TEST-ROOM 


HL 
A,(IX+00) 

A 
Z,0873,LD-PROG 
AH 

L 
Z,084C,LD-DATA-1 


(X-PTR),IX 
19E8,RECLAIM-2 
IX,(X-PTR) 


Fetch the size of the existing 
‘program+variables or array’. 


Jump forward if no extra 
room will be required; taking 
into account the reclaiming of 
the presently used memory. 


Allow an overhead of five 
bytes. 

Move the result to the 

BC register pair and make 
the test. 


Fetch the 'pointer’ anew. 
Jump forward if LOADing 
a BASIC program. 


Jump forward if LOADing a 
new array. 


Fetch the ‘length’ of the 
existing array by collecting 
the length bytes from the 
variables area. 

Point to its old name. 
Add three bytes to the 
length - one for the name 
and two for the ‘length’. 
Save the IX register pair 
temporarily whilst the old 
array is reclaimed. 


Space is now made available for the new array - at the end of the present variables area. 


084C LD-DATA-1 LD 


HL,(E-LINE) 
HL 


C,(IX+0B) 
B,(IX+0C) 
BC 


Find the pointer to the 
end-marker of the variables 
area - the '80-byte’. 

Fetch the ‘length’ of the 
new array. 

Save this ‘length’. 


Now deal with the LOADing of a BASIC program and its variables 


0873 


The data block can now be LOADed. 


08AD 


LD-PROG 


LD-PROG-1 


A,(IX-03) 


AF 
1655, MAKE-ROOM 


A,+FF 
0802,LD-BLOCK 


DE,HL 
HL,(E-LINE) 
HL 


(X-PTR),IX 
C,(IX+0B) 
B,(IX+0C) 

BC 
19E5,RECLAIM-1 
BC 

HL 

BC 


1655, MAKE-ROOM 


IX,(X-PTR) 
ie 


C,(IX+0F) 
B,(IX+10) 
HL,BC 
(VARS),HL 
H,(IX+0E) 
AH 

+C0 


NZ,08AD,LD-PROG-1 


L,(IX+0D) 
(NEWPPC),HL 
(NSPPC),+00 


DE 
IX 


A,+FF 
0802,LD-BLOCK 


Add three bytes - one for 

the name and two for the 
‘length’. 

'IX+0E' of the old header 
gives the name of the array. 
The name is saved whilst the 
appropriate amount of room is 
made available. In effect 'BC' 
spaces before the 'new 80-byte’. 
The name is entered. 

The ‘length’ is fetched and 

its two bytes are also 
entered. 


HL now points to the first 
location that is to be filled 
with data from the tape. 

This address is moved to the 
IX register pair; the carry 
flag set; 'data block’ is 
signalled; and the block 
LOADed. 


Save the ‘destination pointer’. 
Find the address of the 
end-marker of the current 
variables area - the '80-byte’. 
Save IX temporarily. 

Fetch the ‘length’ of the 

new data block. 

Keep a copy of the ‘length’ 
whilst the present program and 
variables areas are reclaimed. 
Save the pointer to the program 
area and the length of the new 
data block. 

Make sufficient room available 
for the new program and its 
variables. 

Restore the IX register pair. 
The system variable VARS 
has also to be set for the 

new program. 


If a line number was 

specified then it too has to 

be considered. 

Jump if 'no number’; otherwise 
set NEWPPC & NSPPC. 


Fetch the ‘length’. 
Fetch the ‘start’. 

Signal 'LOAD'. 

Signal ‘data block’ only. 
Now LOAD it. 


THE 'MERGE' CONTROL ROUTINE 


There are three main parts to this routine. 


i. LOAD the data block into the work space. 
ii. | MERGE the lines of the new program into the old program. 
iii. MERGE the new variables into the old variables. 


Start therefore with the LOADing of the data block. 


O08B6 ME-CONTRL LD 


C,(IX+0B) 
B,(IX+0C) 

BC 

BC 
0030,BC-SPACES 
(HL),+80 


DE,HL 


A,+FF 
0802,LD-BLOCK 


Fetch the ‘length’ of the 

data block. 

Save a copy of the ‘length’. 
Now made ‘length+1' locations 
available in the work space. 
Place an end-marker in the 
extra location. 

Move the 'start’ pointer to the 
HL register pair. 

Fetch the original ‘length’. 
Save a copy of the 'start’. 
Now set the IX register pair 
for the actual LOAD. 

Signal 'LOAD'. 

Signal 'data block only’. 
LOAD the data block. 


The lines of the new program are MERGEd with the lines of the old program. 


POP 


LD 


HL 


DE,(PROG) 


Enter a loop to deal with the lines of the new program. 


08D2 ME-NEW-LP LD 
AND 


JR 


Now enter an inner loop to deal with the lines of the old program. 


08D7 ME-OLD-LP_ LD 


O8DF ME-OLD-L1 


O08EB ME-NEW-L2 


A,(HL) 
+CO 
NZ,08F0,ME-VAR-LP 


A,(DE) 
DE 

(HL) 

HL 
NZ,08DF,ME-OLD-L1 
A,(DE) 

(HL) 

DE 

HL 

NC,08EB, ME-NEW-L2 


HL 

DE,HL 
19B8,NEXT-ONE 
HL 
08D7,ME-OLD-LP 


092C,ME-ENTER 
08D2,ME-NEW-LP 


Fetch the 'start' of the new 
program. 

Initialise DE to the 'start’ of 
the old program. 


Fetch a line number and test 
it. 

Jump when finished with all 
the lines. 


Fetch the high line number 
byte and compare it. 

Jump forward if it does not 
match but in any case advance 
both pointers. 

Repeat the comparison for the 
low line number bytes. 

Now retreat the pointers. 


Jump forward if the correct 
place has been found for a line 
of the new program. 
Otherwise find the address of 
the start of the next old line. 


Go round the loop for each of 
the ‘old lines’. 

Enter the 'new line’ and go 
round the outer loop again. 


In a similar manner the variables of the new program are MERGEd with the variables of the old program. 
A loop is entered to deal with each of the new variables in turn. 


O8F0 ME-VAR-LP LD 


A,(HL) 
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Fetch each variable name in 


CA 
+80 

Z 

HL 
HL,(VARS) 


Now enter an inner loop to search the existing variables area. 


O8F9 ME-OLD-VP_ LD 
cP 
JR 


0901 ME-OLD-V1_ PUSH 


A,(HL) 
+80 
Z,0923,ME-VAR-L2 


Cc 
Z,0909,ME-OLD-V2 


BC 
19B8,NEXT-ONE 
BC 

DE,HL 
08F9,ME-OLD-VP 


turn and test it. 

Return when all the variables 
have been considered. 

Save the current new pointer. 
Fetch VARS (for the old 
program). 


Fetch each variable name and 
test it. 

Jump forward once the end 
marker is found. (Make an 
‘addition’.) 

Compare the names (1st. bytes). 
Jump forward to consider it 
further; returning here if it 
proves not to match fully. 
Save the new variable's name 
whilst the next ‘old variable’ 

is located. 

Restore the pointer to the 

DE register pair and go round 
the loop again. 


The old and new variables match with respect to their first bytes but variables with long names will need to be matched fully. 


0909 ME-OLD-V2 AND 


+E0 

+A0 
NZ,0921,ME-VAR-L1 
DE 

DE 

HL 


Enter a loop to compare the letters of the long names. 


0912 ME-OLD-V3 INC 
INC 


091E ME-OLD-V4_ POP 


Come here if the match was found. 


0921 ME-VAR-L1 LD 


(HL) 
NZ,091E,ME-OLD-V4 


NC,0912,ME-OLD-V3 
HL 
0921,ME-VAR-L1 


HL 
0901,ME-OLD-V1 


A,+FF 


And here if not. (A holds +80 - variable to be 'added’.) 


0923 ME-VAR-L2 POP 


DE 
DE,HL 
A 


092C,ME-ENTER 
08F0,ME-VAR-LP 
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Consider bits 7, 6 & 5 only. 
Accept all the variable types 
except ‘long named variables’. 
Make DE point to the first 
character of the 'new name’. 
Save the pointer to the ‘old 
name’. 


Update both the 'old' and the 
‘new' pointers. 
Compare the two letters 


Jump forward if the match 
fails. 

Go round the loop until the 
‘last character’ is found. 
Fetch the pointer to the 
start of the 'old' name and 
jump forward - successful. 
Fetch the pointer and jump 
back - unsuccessful. 


Signal 'replace' variable. 


Fetch pointer to 'new' name. 
Switch over the registers. 

The zero flag is to be set if there 
is to be a 'replacement'’; reset 
for an ‘addition’. 

Signal ‘handling variables’. 

Now make the entry. 

Go round the loop to consider 
the next new variable. 


THE 'MERGE A LINE OR A VARIABLE’ SUBROUTINE 


This subroutine is entered with the following parameters: 


Carry flag 
Zero 


HL register pair 
DE register pair 


092C ME-ENTER JR 


The new entry can now be made. 


093E ME-ENT-1 EX 
PUSH 


CALL 


LD 


0955 ME-ENT-2 CALL 


0958 ME-ENT-3 INC 


POP 
POP 
PUSH 


CALL 


POP 
RET 


reset 
set 
reset 
set 


NZ,093E,ME-ENT-1 
AF, A\'F' 

(X-PTR),HL 

DE,HL 
19B8,NEXT-ONE 
19E8,RECLAIM-2 
DE,HL 

HL,(X-PTR) 

AF,A\'F' 


AF,A'F' 
DE 


19B8,NEXT-ONE 
(X-PTR),HL 
HL,(PROG) 
(SP),HL 

BC 

AF, A\'F' 
C,0955,ME-ENT-2 
HL 

1655, MAKE-ROOM 
HL 


0958,ME-ENT-3 
1655, MAKE-ROOM 


DE,(X-PTR) 


19E8,RECLAIM-2 


DE 


- MERGE a BASIC line. 
- MERGE a variable. 

- It will be an ‘addition’. 
- It is a ‘replacement’. 


- Points to the start of the new entry. 
- Points to where it is to MERGE. 


Jump if handling an ‘addition’. 
Save the flags. 

Save the 'new' pointer whilst 
the ‘old’ line or variable 

is reclaimed. 


Restore the flags. 


Save the flags. 

Make a copy of the 
‘destination’ pointer. 

Find the length of the 'new' 
variable/line. 

Save the pointer to the 'new' 
variable/line. 

Fetch PROG - to avoid 
corruption. 

Save PROG on the stack and 
fetch the 'new' pointer. 

Save the length. 

Retrieve the flags. 

Jump forward if adding a new 
variable. 

A new line is added before the 
‘destination’ location. 

Make the room for the new line. 


Jump forward. 

Make the room for the new 
variable. 

Point to the 1st new location. 
Retrieve the length. 

Retrieve PROG and store it 
in its correct place. 

Also fetch the 'new' pointer. 
Again save the length and the 
new’ pointer. 

Switch the pointers and copy 
the 'new' variable/line into the 
room made for it. 


Fetch the 'new' pointer. 

Fetch the length. 

Save the ‘old’ pointer. (Points 
to the location after the 'added' 
variable/line. ) 

Remove the variable/line from 
the work space. 

Return with the 'old' pointer 

in the DE register pair. 


THE 'SAVE' CONTROL ROUTINE 


The operation of SAVing a program or a block of data is very straightforward. 


0970 


SA-CONTRL PUSH 


CALL 


HL 
A,+FD 
1601,CHAN-OPEN 
A 

DE,+09A1 
0C0A,PO-MSG 
5,(TV-FLAG) 


15D4,WAIT-KEY 


Upon receipt of a keystroke the 'header' is saved. 


PUSH 


LD 


IX 
DE,+0011 


A 
04C2,SA-BYTES 


There follows a short delay before the program/data block is SAVEd. 


0991 


THE CASSETTE MESSAGES 


POP 


SA-1-SEC 


IX 
B,+32 


0991,SA-1-SEC 
E,(IX+0B) 
D,(IX+0C) 

A,+FF 

IX 
04C2,SA-BYTES 


Each message is given with the last character inverted (+80 hex.). 


09A1 
09A2 
09C1 
09CB 
O9DA 
O9EC 


DEFB +80 
DEFM 
DEFM 
DEFM 
DEFM 
DEFM 


- Initial byte is stepped over. 

- Start tape, then press any key. 

- ‘carriage return’ - Program: 

- 'carriage return’ - Number array: 

- ‘carriage return’ - Character array: 
- ‘carriage return’ - Bytes: 
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Save the 'pointer’. 

Ensure that channel 'K' 

is open. 

Signal ‘first message’. 

Print the message — ‘Start tape, 
then press any key.'. 

Signal 'screen will require to be 
cleared’. 

Wait for a key to be pressed. 


Save the base address of the 
‘header' on the machine stack. 
Seventeen bytes are to be 
SAVEd. 

Signal ‘it is a header’. 

Send the ‘header’; with a leading 
‘type’ byte and a trailing ‘parity’ 
byte. 


Retrieve the pointer to the 
‘header’. 

The delay is for fifty 
interrupts, i.e. one second. 


Fetch the length of the 

data block that is to be SAVEd. 
Signal 'data block'. 

Fetch the 'start of block 
pointer’ and SAVE the block. 


THE SCREEN & PRINTER HANDLING ROUTINES 


THE 'PRINT-OUT' ROUTINES 


All of the printing to the main part of the screen, the lower part of the screen and the printer is handled by this set of routines. 
The PRINT-OUT routine is entered with the A register holding the code for a control character, a printable character or a token. 


O9F4 PRINT-OUT CALL 


0B03,PO-FETCH 

+20 
NC,0AD9,PO-ABLE 
+06 
C,0A69,PO-QUEST 
+18 
NC,0A69,PO-QUEST 
HL,+0A0B 


0B03,PO-FETCH 


THE 'CONTROL CHARACTER’ TABLE 


address offset character 
0A11 4E PRINT comma 
0A12 57 EDIT 

0A13 10 cursor left 
0A14 29 cursor right 
0A15 54 cursor down 
0A16 53 cursor up 
0A17 52 DELETE 

0A18 37 ENTER 

0A19 50 not used 


address 


OA1A 
0A1B 
0A1C 
0A1D 
OA1E 
OA1F 
0A20 
0A21 

0A22 


THE 'CURSOR LEFT' SUBROUTINE 


The subroutine is entered with the B register holding the current line number and the C register with the current column number. 


0A23 PO-BACK-1 


0A38 
OA3A 


PO-BACK-2 
PO-BACK-3 


LD 
JP 


Cc 
A,+22 

Cc 
NZ,0A3A,PO-BACK-3 
1,(FLAGS) 
NZ,0A38,PO-BACK-2 
B 

C,+02 

A,+18 

B 
NZ,0A3A,PO-BACK-3 


B 
C,+21 
ODD9,CL-SET 


THE 'CURSOR RIGHT' SUBROUTINE 
This subroutine performs an operation identical to the BASIC statement - PRINT OVER 1;CHR$ 32; -. 


0A3D PO-RIGHT LD 


PUSH 


A,(P-FLAG) 
AF 


offset 
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The current print position. 

If the code represents a 
printable character then jump. 
Print a question mark for 
codes in the range +00 - +05. 
And also for codes +18 - +1F. 


Base of 'control' table. 
Move the code to the 
DE register pair. 

Index into the table and 
fetch the offset. 

Add the offset and make 
an indirect jump to the 
appropriate subroutine. 


character 


not used 

INK control 
PAPER control 
FLASH control 
BRIGHT control 
INVERSE control 
OVER control 
AT control 

TAB control 


Move leftwards by one column. 
Accept the change unless 
up against the lefthand side. 


If dealing with the printer 
jump forward. 

Go up one line. 

Set column value. 

Test against top line. 

Note: This ought to be +19. 
Accept the change unless at 
the top of the screen. 
Unacceptable so down a line. 
Set to lefthand column. 
Make an indirect return via 
CL-SET & PO-STORE. 


Fetch P-FLAG and save it on 
the machine stack. 


LD (P-FLAG),+01 Set P-FLAG to OVER 1. 


LD A,+20 A ‘space’. 

CALL 0B65,PO-CHAR Print the character. 
POP AF Fetch the old value of 
LD (P-FLAG),A P-FLAG. 

RET Finished. 


Note: The programmer has 
forgotten to exit via PO-STORE. 


THE 'CARRIAGE RETURN' SUBROUTINE 


If the printing being handled is going to the printer then a carriage return character leads to the printer buffer being emptied. If the 
printing is to the screen then a test for 'scroll?' is made before decreasing the line number. 


OA4F PO-ENTER | BIT 1,(FLAGS) Jump forward if handling 
JP NZ,0OECD,COPY-BUFF the printer. 
LD C,+21 Set to lefthand column. 
CALL 0C55,PO-SCR Scroll if necessary. 
DEC B Now down a line. 
JP ODD9,CL-SET Make an indirect return via 


CL-SET & PO-STORE. 


THE 'PRINT COMMA' SUBROUTINE 
The current column value is manipulated and the A register set to hold +00 (for TAB 0) or +10 (for TAB 16). 


OA5F PO-COMMA_ CALL 0B03,PO-FETCH Why again? 
LD A,C Current column number. 
DEC A Move rightwards by two 
DEC A columns and then test. 
AND +10 The A register will be +00 or 
+10. 
JR 0AC3,PO-FILL Exit via PO-FILL. 


THE 'PRINT A QUESTION MARK' SUBROUTINE 


A question mark is printed whenever an attempt is made to print an unprintable code. 


OA69_ = PO-QUEST = LD A,+3F The character '?". 
JR OAD9,PO-ABLE Now print this character instead. 


THE 'CONTROL CHARACTERS WITH OPERANDS' ROUTINE 

The control characters from INK to OVER require a single operand whereas the control characters AT & TAB are required to be 
followed by two operands. 

The present routine leads to the control character code being saved in TVDATA-lo, the first operand in TVDATA-hi or the A register if 
there is only a single operand required, and the second operand in the A register. 


OA6D PO-TV-2 LD DE,+0A87 Save the first operand in 
LD (TVDATA-hi),A TVDATA-hi and change the 
JR 0A80,PO-CHANGE address of the ‘output’ routine 


to PO-CONT (+0A87). 
Enter here when handling the characters AT & TAB. 
0A75 PO-2-OPER LD DE,+0A6D The character code will be 
JR 0A7D,PO-TV-1 saved in TVDATA-lo and the 
address of the ‘output’ routine 
changed to PO-TV-2 (+0A6D). 


Enter here when handling the colour items - INK to OVER. 


OA7A PO-1-OPER LD DE,+0A87 The ‘output’ routine is to be 
changed to PO-CONT (+0A87). 
0A7D PO-TV-1 LD (TVDATA-lo),A Save the control character code. 


The current 'output' routine address is changed temporarily. 
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O0A80 PO-CHANGE LD 


HL,(CURCHL) 


(HL),E 
HL 
(HL),D 


Once the operands have been collected the routine continues. 


0A87 PO-CONT LD 
CALL 


LD 


OAAC PO-AT-ERR JP 


OABF PO-AT-SET JP 
And the TAB control character. 


O0AC2 
0AC3 


PO-TAB LD 
PO-FILL CALL 


OADO PO-SPACE LD 


DE,+09F4 
0A80,PO-CHANGE 
HL,(TVDATA) 


+16 
C,2211,CO-TEMPS 
NZ,0AC2,PO-TAB 


C,0AAC,PO-AT-ERR 
A,+02 

CA 

1,(FLAGS) 
NZ,OABF,PO-AT-SET 
A,+16 

B 


C,1E9F,REPORT-B 
A 

BA 

B 

0,(TV-FLAG) 
NZ,0C55,PO-SCR 


(DF-SZ) 
C,0C86,REPORT-5 
0D09,CL-SET 


A,H 
0B03,PO-FETCH 


DA 
0,(FLAGS) 

A,+20 
0C3B,PO-SAVE 

D 
NZ,0AD0,PO-SPACE 


PRINTABLE CHARACTER CODES. 
The required character (or characters) is printed by calling PO-ANY followed by PO-STORE. 
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HL will point to the ‘output’ 
routine address. 

Enter the new ‘output’ 

routine address and thereby 
force the next character code 

to be considered as an operand. 


Restore the original address 
for PRINT-OUT (+09F4). 

Fetch the control code and the 
first operand if there are indeed 
two operands. 

The ‘last’ operand and the 
control code are moved. 

Jump forward if handling 

INK to OVER. 

Jump forward if handling TAB. 


The line number. 

The column number. 
Reverse the column number; 
i.e. +00 - +1F becomes +1F - 
+00. 

Must be in range. 

Add in the offset to give 

C holding +21 - +22. 

Jump forward if handling the 
printer. 

Reverse the line number; 

i.e. +00 - +15 becomes +16 - 
+01. 

If appropriate jump forward. 
The range +16 - +01 becomes 
+17 - +02. 

And now +18 - +03. 

If printing in the lower part 

of the screen then consider 
whether scrolling is needed. 
Give report 5 - Out of screen, 
if required. 

Return via CL-SET & PO-STORE. 


Fetch the first operand. 

The current print position. 

Add the current column value. 
Find how many 'spaces', modulo 
32, are required and return 

if the result is zero. 

Use 0 as the counter. 

Suppress ‘leading space’. 

Print 'D number' of 

spaces. 


Now finished. 


OAD 


PO-ABLE 


CALL 0B24,PO-ANY 


THE 'POSITION STORE’ SUBROUTINE 


The new position's ‘line & column’ values and the 'pixel' address are stored in the appropriate system variables. 


OADC 


OAFO 


OAFC 


PO-STORE 


PO-ST-E 


PO-ST-PR 


BIT 1,(FLAGS) 
JR NZ,0AFC,PO-ST-PR 
BIT 0,(TV-FLAG) 

JR NZ,0AFO,PO-ST-E 
LD (S-POSN),BC 

LD (DF-CC),HL 

RET 

LD (S-POSNL),BC 

LD (ECHO-E),BC 

LD (DF-CCL),HL 

RET 

LD (P-POSN),C 

LD (PR-CC),HL 

RET 


THE 'POSITION FETCH' SUBROUTINE 


The current position's parameters are fetched from the appropriate system variables. 


0B03 


0B1D 


THE 'PRINT ANY CHARACTER(S)’ SUBROUTINE 


Ordinary character codes, token codes and user-defined graphic codes, and graphic codes are dealt with separately. 


0B24 


PO-FETCH 


PO-F-PR 


PO-ANY 


BIT 1,(FLAGS) 
JR NZ,0B1D,PO-F-PR 
LD BC,(S-POSN) 

LD HL,(DF-CC) 

BIT 0,(TV-FLAG) 

RET Z 

LD BC,(S-POSNL) 

LD HL,(DF-CCL) 

RET 

LD C,(P-POSN) 

LD HL,(PR-CC) 

RET 


CP +80 

JR C,0B65,PO-CHAR 
CP +90 

JR NC,0B52,PO-T&UDG 
LD BA 

CALL 0B38,PO-GR-1 
CALL 0B03,PO-FETCH 

LD DE,+5C92 

JR 0B7F,PO-ALL 


Print the character(s) 
and continue into PO-STORE. 


Jump forward if handling 
the printer. 

Jump forward if handling the 
lower part of the screen. 
Save the values that relate 
to the main part of the 
screen. Then return. 

Save the values that relate 
to the lower part of the 
screen. 

Then return. 

Save the values that relate 
to the printer buffer. 

Then return. 


Jump forward if handling 
the printer. 

Fetch the values relating 
to the main part of the 
screen and return if this 
was the intention. 
Otherwise fetch the values 
relating to the lower part 
of the screen. 

Fetch the values relating 
to the printer buffer. 


Jump forward with ordinary 
character codes. 

Jump forward with token 
codes and UDG codes. 
Move the graphic code. 
Construct the graphic form. 
HL has been disturbed so 
‘fetch' again. 

Make DE point to the start of the 
graphic form; i.e. MEMBOT. 
Jump forward to print the 
graphic character. 


Graphic characters are constructed in an Ad Hoc manner in the calculator's memory area; i.e. MEM-0 & MEM-1. 


0B38 


OB3E 


PO-GR-1 


PO-GR-2 


LD HL,+5C92 
CALL OB3E,PO-GR-2 
RR B 

SBC A,A 

AND +0F 


This is MEMBOT. 

In effect call the following 
subroutine twice. 

Determine bit 0 (and later bit 2) 
of the graphic code. 

The A register will hold +00 or 
+0F depending on the value of 
the bit in the code. 


36 


LD CA Save the result in C. 


RR B Determine bit 1 (and later bit 3) 

SBC A,A of the graphic code. 

AND +FO The A register will hold +00 

or +F0. 

OR Cc The two results are combined. 

LD C,+04 The A register holds half the 
OB4C PO-GR-3 LD (HL),A character form and has to be 

INC HL used four times. 

DEC Cc This is done for the upper 

JR NZ,0B4C,PO-GR-3 half of the character form 

RET and then the lower. 


Token codes and user-defined graphic codes are now separated. 


0B52 PO-T&UDG SUB +A5 Jump forward with token codes 
JR NC,OB5F,PO-T 
ADD A,+15 UDG codes are now +00 - +0F. 
PUSH BC Save the current position 

values on the machine stack. 

LD BC,(UDG) Fetch the base address of the 
JR OB6A,PO-CHAR-2 UDG area and jump forward. 

OB5F PO-T CALL 0C10,PO-TOKENS Now print the token and return 
JP 0B03,PO-FETCH via PO-FETCH. 


OB65 PO-CHAR PUSH BC The current position is saved. 
LD BC,(CHARS) The base address of the 
character area is fetched. 
OB6A PO-CHAR-2 EX DE,HL The print address is saved. 
LD HL,+5C3B This is FLAGS. 
RES 0,(HL) Allow for a leading space 
CP +20 Jump forward if the character 
JR NZ,0B76,PO-CHAR-3 is not a 'space’. 
SET 0,(HL) But ‘suppress’ if it is. 
0B76 PO-CHAR-3 LD H,+00 Now pass the character code 
LD LA to the HL register pair. 
ADD HL,HL The character code is in 
ADD HL,HL effect multiplied by 8. 
ADD HL,HL 
ADD HL,BC The base address of the 
character form is found. 
POP BC The current position is fetched 
EX DE,HL and the base address passed to 


the DE register pair. 


THE 'PRINT ALL CHARACTERS' SUBROUTINE 


This subroutine is used to print all '8*8' bit characters. On entry the DE register pair holds the base address of the character form, the 
HL register the destination address and the BC register pair the current ‘line & column’ values. 


OB7F PR-ALL LD A,C Fetch the column number. 
DEC A Move one column rightwards. 
LD A,+21 Jump forward unless a new 
JR NZ,0893,PR-ALL-1 line is indicated. 
DEC B Move down one line. 
LD CA Column number is +21. 
BIT 1,(FLAGS) Jump forward if handling 
JR Z,0B93,PR-ALL-1 the screen. 
PUSH DE Save the base address whilst 
CALL OECD,COPY-BUFF the printer buffer is 
POP DE emptied. 
LD A,C Copy the new column number. 
0B93 PR-ALL-1 CP Cc Test whether a new line is 
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PUSH 
CALL 
POP 


DE 
Z,0C55,PO-SCR 
DE 


Now consider the present state of INVERSE & OVER 


OBA4 PR-ALL-2 RRA 


OBB6 PR-ALL-3 EX 


The character can now be printed. Eight passes of the loop are made - 


OBB7 PR-ALL-4 EX 


OBC1 PR-ALL-5 INC 


BC 
HL 


A,(P-FLAG) 
B,+FF 


C,0BA4,PR-ALL-2 
B 

A,A 

C,A 


A,+08 
A 


1,(FLAGS) 


Z,0BB6,PR-ALL-3 
1,(FLAGS2) 


DE,HL 


AF, A\'F' 
A,(DE) 

B 

(HL) 

Cc 

(DE),A 

AF, A'F' 
C,0BD3,PR-ALL-6 
D 

HL 


A 
NZ,0BB7,PR-ALL-4 


being used. If it is 
see if the display requires 
to be scrolled. 


Save the position values 

and the destination address 
on the machine stack. 

Fetch P-FLAG and read bit 0. 
Prepare the 'OVER-mask' in 
the B register; i.e. OVER 0 

= +00 & OVER 1 - +FF. 


Read bit 2 of P-FLAG and 
prepare the 'INVERSE-mask' 
in the C register; i.e. 

INVERSE 0 = +00 & INVERSE 
1=+FF. 

Set the A register to hold 

the 'pixel-line’ counter and 
clear the carry flag. 

Jump forward if handling 

the screen. 

Signal ‘printer buffer no longer 
empty’. 

Set the carry flag to show that 
the printer is being used. 
Exchange the destination 
address with the base address 
before entering the loop. 


one for each 'pixel-line’. 


The carry flag is set when using 
the printer. Save this flag in F'. 
Fetch the existing 'pixel-line’. 
Use the 'OVER-mask' and then 
XOR the result with the 'pixel- 
line’ of the character form. 
Finally consider the 'INVERSE- 
mask’. 

Enter the result. 

Fetch the printer flag and 

jump forward if required. 
Update the destination address 
Update the 'pixel-line' of 

the character form. 

Decrease the counter and loop 
back unless it is zero. 


Once the character has been printed the attribute byte is to set as required. 


EX 
DEC 


BIT 
CALL 
POP 
POP 


DEC 
INC 
RET 


DE,HL 
H 


1,(FLAGS) 
Z,0BDB,PO-ATTR 
HL 
BC 


Cc 
HL 


Make the H register hold a 
correct high-address for the 
character area. 

Set the attribute byte only if 
handling the screen. 
Restore the original 
destination address and the 
position values. 

Decrease the column number 
and increase the destination 
address before returning. 


When the printer is being used the destination address has to be updated in increments of +20. 


OBD3 PR-ALL-6 EX AF,A'F' Save the printer flag again. 


LD A,+20 The required increment value. 
ADD A,E Add the value and pass the 
LD EA result back to the E register. 
EX AF,A'F' Fetch the flag. 

JR 0BC1,PR-ALL-5 Jump back into the loop. 


THE 'SET ATTRIBUTE BYTE' SUBROUTINE 
The appropriate attribute byte is identified and fetched. The new value is formed by manipulating the old value, ATTR-T, MASK-T and 
P-FLAG. Finally this new value is copied to the attribute area. 


OBDB PO-ATTR LD A,H The high byte of the 
RRCA destination address is 
RRCA divided by eight and ANDed 
RRCA with +03 to determine which 
AND +03 third of the screen is being 
addressed; i.e. 00, 01 or 02. 
OR +58 The high byte for the 
LD H,A attribute area is then formed. 
LD DE,(ATTR-T) D holds ATTR-T, and 
E holds MASK-T. 
LD A,(HL) The old attribute value. 
XOR E The values of MASK-T and 
AND D ATTR-R are taken into 
XOR E account. 
BIT 6,(P-FLAG) Jump forward unless dealing 
JR Z,0BFA,PO-ATTR-1 with PAPER 9. 
AND +C7 The old paper colour is ignored 
and depending on whether the 
BIT 2,A ink colour is light or dark 
JR NZ,OBFA,PO-ATTR-1 the new paper colour will be 
XOR +38 black (000) or white (111). 
OBFA PO-ATTR-1— BIT 4,(P-FLAG) Jump forward unless dealing 
JR Z,0C08,PO-ATTR-2 with INK 9. 
AND +F8 The old ink colour is ignored and 
depending on whether the paper 
BIT 5,A colour is light or dark the new 
JR NZ,0C08,PO-ATTR-2 ink colour will be black (000) 
XOR +07 or white (111). 
0C08 PO-ATTR-2 LD (HL),A Enter the new attribute value 
RET and return. 


THE 'MESSAGE PRINTING' SUBROUTINE 
This subroutine is used to print messages and tokens. The A register holds the 'entry number' of the message or token in a table. The 
DE register pair holds the base address of the table. 


OCOA PO-MSG PUSH HL The high byte of the last 
LD H,+00 entry on the machine stack is 
EX (SP),HL made zero so as to suppress 
trailing spaces (see below). 
JR 0C14,PO-TABLE Jump forward. 


Enter here when expanding token codes. 


0C10 PO-TOKENS LD DE,+0095 The base address of the token 
table. 
PUSH AF Save the code on the stack. 


(Range +00 - +5A; RND - COPY). 


The table is searched and the correct entry printed. 


0014 PO-TABLE CALL 0C41,PO-SEARCH Locate the required entry. 
JR C,0C22,PO-EACH Print the message/token. 
LD A,+20 A ‘space’ will be printed 
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BIT 0,(FLAGS) 
CALL Z,0C3B,PO-SAVE 


The characters of the message/token are printed in turn. 


0C22 PO-EACH LD A,(DE) 
AND +7F 
CALL 0C3B,PO-SAVE 
LD A,(DE) 
INC DE 
ADD AA 
JR NC,0C22,PO-EACH 


Now consider whether a ‘trailing space’ is required. 


POP DE 
CP +48 
JR Z,0C35,PO-TRSP 
CP +82 
RET Cc 
0C35 PO-TR-SP LD A,D 
cP +03 
RET Cc 
LD A,+20 


THE 'PO-SAVE' SUBROUTINE 


before the message/token 
if required. 


Collect a code. 

Cancel any ‘inverted bit’. 

Print the character. 

Collect the code again. 
Advance the pointer. 

The ‘inverted bit' goes to 

the carry flag and signals 

the end of the message/token; 
otherwise jump back. 


For messages - D holds +00; 
for tokens - D holds +00 - +5A. 
Jump forward if the last 
character was a '$'. 

Return if the last character 
was any other before 'A'. 
Examine the value in D and 
return if it indicates a 
message, RND, INKEY$ or PI. 
All other cases will require 

a ‘trailing space’. 


This subroutine allows for characters to be printed ‘recursively’. The appropriate registers are saved whilst 'PRINT-OUT' is called. 


0C3B PO-SAVE PUSH DE 
EXX 
RST 0010,PRINT-A-1 
EXX 
POP DE 
RET 


THE 'TABLE SEARCH' SUBROUTINE 


The subroutine returns with the DE register pair pointing to the initial character of the required entry and the carry flag reset if a ‘leading 


space’ is to be considered. 


0C41_ PO-SEARCH PUSH AF 
EX DE,HL 
INC A 
0C44.-«- PO-STEP-—_iBIT 7,(HL) 
INC HL 
JR Z,0C44,PO-STEP 
DEC A 
JR NZ,0C44,PO-STEP 
EX DE,HL 
POP AF 
cP +20 
RET Cc 
LD A,(DE) 
SUB +41 
RET 


THE 'TEST FOR SCROLL' SUBROUTINE 


Save the DE register pair. 
Save HL & BC. 

Print the single character. 
Restore HL & BC. 
Restore DE. 

Finished. 


Save the ‘entry number’. 

HL now holds the base address. 
Make the range +01 - ?. 

Wait for an ‘inverted 

character’. 


Count through the entries 

until the correct one is found. 
DE points to the initial character. 
Fetch the ‘entry number’ and 
return with carry set for the 

first thirty two entries. 

However if the initial 

character is a letter then a 
leading space may be needed. 


This subroutine is called whenever there might be the need to scroll the display. This occurs on three occasions; i. when handling a 
‘carriage return’ character; ii. when using AT in an INPUT line; & iii. when the current line is full and the next line has to be used. 


On entry the B register holds the line number under test. 


40 


0C55 PO-SCR BIT 


Report 5 - Out of screen 


0C86 REPORT-5 RST 
DEFB 


1,(FLAGS) 
NZ 

DE,+0DD9 

DE 

A.B 

0,(TV-FLAG) 
NZ,0D02,PO-SCR-4 
(DF-SZ) 
C,0C86,REPORT-6 
NZ 


4,(TV-FLAG) 
Z,0C88,PO-SCR-2 
E,(BREG) 

E 
Z,0CD2,PO-SCR-3 


A,+00 
1601,CHAN-OPEN 
SP,(LIST-SP) 
4,(TV-FLAG) 


0008,ERROR-1 
+04 


Now consider if the prompt 'scroll?' is required. 


0C88 PO-SCR-2 DEC 
JR 


Proceed to give the prompt message. 


(SCR-CT) 
NZ,0CD2,PO-SCR-3 


A,+18 
B 

(SCR-CT),A 
HL,(ATTR-T) 

HL 

A,(P-FLAG) 

AF 

A,+FD 
1601,CHAN-OPEN 
A 

DE,+0CF8 
0C0A,PO-MSG 
5,(TV-FLAG) 


HL,+5C3B 
3,(HL) 
5,(HL) 


15D4,WAIT-KEY 


+20 
Z,0D00,REPORT-D 
+E2 
Z,0D00,REPORT-D 
+20 

+6E 
Z,0D00,REPORT-D 
A,+FE 
1601,CHAN-OPEN 
AF 


Return immediately if the 
printer is being used. 
Pre-load the machine stack 
with the address of 'CL-SET'. 
Transfer the line number. 
Jump forward if considering 
INPUT ... AT ..". 

Return, via CL-SET, if the line 
number is greater than the value 
of DF-SZ; give report 5 if it is 
less; otherwise continue. 
Jump forward unless dealing 
with an ‘automatic listing’. 
Fetch the line counter. 
Decrease this counter. 

Jump forward if the listing 

is to be scrolled. 

Otherwise open channel 'k', 
restore the stack pointer, 
flag that the automatic 

listing has finished and 
return via CL-SET. 


Call the error handling 
routine. 


Decrease the scroll counter 
and proceed to give the prompt 
only if is becomes zero. 


The counter is reset. 


The current values of ATTR-T 
and MASK-T are saved. 

The current value of P-PFLAG 
is saved. 

Channel 'K' is opened. 


The message 'scroll?’ is 
message '0'. This message is 
now printed. 

Signal 'clear the lower screen 
after a keystroke’. 

This is FLAGS. 

Signal 'L mode’. 

Signal 'no key yet’. 

Note: DE should be pushed also. 
Fetch a single key code. 
Restore the registers. 

There is a jump forward to 
REPORT-D - 'BREAK - CONT 
repeats' - if the keystroke 

was 'BREAK', 'STOP’, 'N' or 
'n'; otherwise accept the 
keystroke as indicating the 
need to scroll the display. 
Open channel 'S'. 


Restore the value of 


LD (P-FLAG),A 
POP HL 
LD (ATTR-T),HL 


The display is now scrolled. 


0CD2 PO-SCR-3 CALL ODFE,CL-SC-ALL 


LD B(DF-SZ) 
INC B 

LD C,+21 

PUSH BC 

CALL 0E9B,CL-ADDR 
LD AH 

RRCA 

RRCA 

RRCA 

AND +03 

OR +58 

LD HA 


P-FLAG. 
Restore the values of ATTR-T 
and MASK-T. 


The whole display is scrolled. 
The line and column numbers 
for the start of the line 

above the lower part of the 
display are found and saved. 
The corresponding attribute 
byte for this character area is 
then found. The HL register pair 
holds the address of the 

byte. 


The line in question will have ‘lower part' attribute values and the new line at the bottom of the display may have 'ATTR-P' values so the 


attribute values are exchanged. 


LD DE,+5AE0 
LD A,(DE) 
LD C,(HL) 
LD B,+20 
EX DE,HL 
OCFO PO-SCR-3A LD (DE),A 
LD (HL),C 
INC DE 
INC HL 
DJNZ OCF0,PO-SCR-3A 
POP BC 
RET 
The 'scroll?' message 
OCF8 DEFB +80 
DEFB +73,+63,+72,+6F 
DEFB +6C,+6C,+BF 


Report 0 - BREAK - CONT repeats 


0DOO REPORT-D RST 0008,ERROR-1 
DEFB +0C 


The lower part of the display is handled as follows: 


0D02 + PO-SCR-4 CP +02 
JR C,0C86,REPORT-5 
ADD A,(DF-SZ) 
SUB +19 
RET NC 
NEG 
PUSH BC 
LD BA 
LD HL,(ATTR-T) 
PUSH HL 
LD HL,(P-FLAG) 
PUSH HL 
CALL 0D40, TEMPS 


DE points to the first attribute 
byte of the bottom line. 

The value is fetched. 

The ‘lower part' value. 

There are thirty two bytes. 
Exchange the pointers. 

Make the first exchange 

and then proceed to use the 
same values for the thirty 
two attribute bytes of the 

two lines being handled. 

The line and column numbers of 
the bottom line of the 'upper 
part’ are fetched before 
returning. 


Initial marker - stepped over. 
S-C-r-0 
|-1- ? (inverted). 


Call the error handling 
routine. 


The ‘out of screen’ error is 
given if the lower part is 
going to be 'too large’ and a 
return made if scrolling is 
unnecessary. 

The A register will now hold 
‘the number of scrolls to be 
made’. 

The line and column numbers 
are now saved. 

The 'scroll number’, ATTR-T 
MASK-T & P-FLAG are all 
saved. 


The 'permanent' colour items 
are to be used. 


LD 


The lower part of the screen is now scrolled 'A' number of times. 


0D1C PO-SCR-4A PUSH 


0D2D PO-SCR-4B 


A,B 


AF 
HL,+5C6B 

B,(HL) 

A.B 

A 

(HL),A 

HL,+5C89 

(HL) 
C,0D2D,PO-SCR-4B 


(HL) 
B,+18 


0E00,CL-SCROLL 

AF 

A 
NZ,0D1C,PO-SCR-4A 


(ATTR-T),HL 
BC,(S-POSN) 
0,(TV-FLAG) 
ODD9,CL-SET 
0,(TV-FLAG) 
BC 


THE 'TEMPORARY COLOUR ITEMS' SUBROUTINE 


This is a most important subroutine. It is used whenever the 'permanent' details are required to be copied to the 'temporary' system 


variables. First ATTR-T & MASK-T are considered 


0D4D TEMPS 


OD5B TEMPS-1 LD 
Next P-FLAG is considered. 
LD 
JR 


O0D65 TEMPS-2 


A 
HL,(ATTR-P) 
0,(TV-FLAG) 
Z,0D5B, TEMPS-1 


HA 
L,(BORDCR) 
(ATTR-T),HL 


HL,+5C91 
NZ,0D65, TEMPS-2 


A,(HL) 


(HL) 
+55 
(HL) 
(HL),A 


THE 'CLS COMMAND' ROUTINE 


In the first instance the whole of the display is 'cleared' - the 'pixels' are all reset and the attribute bytes are set to equal the value in 


ATTR-P - then the lower part of the display is reformed. 
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The 'scroll number’ is fetched. 


Save the 'number'. 

This is DF-SZ. 

The value in DF-SZ is 
incremented; the B register 

set to hold the former value and 
the A register the new value. 
This is S-POSN-hi. 

The jump is taken if only the 
lower part of the display is 

to be scrolled. (B = old DF-SZ). 
Otherwise S-POSN-hi is 
incremented and the whole 
display scrolled. (B = +18) 
Scroll 'B' lines. 

Fetch and decrement the 
scroll number’. 

Jump back until finished. 
Restore the value of 

P-FLAG. 

Restore the values of ATTR-T 
and MASK-T. 

In case S-POSN has been 
changed CL-SET is called to 
give a matching value to DF-CC. 
Reset the flag to indicate that 
the lower screen is being 
handled, fetch the line and 
column numbers, and then 
return. 


A is set to hold +00. 

The current values of ATTR-P 
and MASK-P are fetched. 
Jump forward if handing the 
main part of the screen. 
Otherwise use +00 and the 
value in BORDCR instead. 
Now set ATTR-T & MASK-T. 


This is P-FLAG. 

Jump forward if dealing with 
the lower part of the screen 

(A = +00). 

Otherwise fetch the value of 
P-FLAG and move the odd bits 
to the even bits. 

Proceed to copy the even bits 
of A to P-FLAG. 


OD6B CLS 


OD6E CLS-LOWER 


With the exception of the attribute bytes for lines '22' & '23' the attribute bytes for the lines in the lower part of the display will need to be 


made equal to ATTR-P. 


0D87 CLS-1 
0D89 CLS-2 
OD8E CLS-3 


CALL 


LD 
RES 


SET 
CALL 


LD 
CALL 


LD 


ODAF,CL-ALL 


HL,+5C3C 
5,(HL) 


0,(HL) 
0D4D,TEMPS 


B,(DF-SZ) 
0E44,CL-LINE 


HL,+5ACO 
A,(ATTR-P) 
B 


OD8E,CLS-3 


NZ,0D89,CLS-2 
0D87,CLS-1 


The size of the lower part of the display can now be fixed. 


It now remains for the following 'house keeping’ tasks to be performed. 


0D94 CL-CHAN 


ODAO CL-CHAN-A 


LD 


JR 


(DF-SZ),+02 


A,+FD 
1601,CHAN-OPEN 
HL,(CURCHL) 
DE,+09F4 

A 

(HL),E 

HL 

(HL),D 

HL 

DE,+10A8 


C,0DA0,CL-CHAN-A 
BC,+1721 


ODD9,CL-SET 


The whole of the display is 
‘cleared’. 

This is TV-FLAG. 

Signal 'do not clear the lower 
screen after keystroke’. 

Signal ‘lower part’. 

Use the permanent values. i.e. 
ATTR-T is copied from BORDCR. 
The lower part of the screen is 
now ‘cleared’ with these values. 


Attribute byte at start of line 
'22'. 

Fetch ATTR-P. 

The line counter. 

Jump forward into the loop. 
+20 characters per line. 

Go back along the line setting 
the attribute bytes. 


Loop back until finished. 


It will be two lines in size. 


Open channel 'k'. 


Fetch the address of the 
current channel and make 
the output address +09F4 
(= PRINT-OUT) and the 
input address +10A8 

(= KEY-INPUT). 


First the output address 
then the input address. 

As the lower part of the 
display is being handled the 
‘lower print line’ will be 

line '23'. 

Return via CL-SET. 


THE 'CLEARING THE WHOLE DISPLAY AREA' SUBROUTINE 


This subroutine is called from; i. the CLS command routine. ii. the main execution routine, and iii. the automatic listing routine. 


ODAF CL-ALL 


HL,+0000 
(COORDS),HL 
0,(FLAGS2) 
0D94,CL-CHAN 


A,+FE 
1601,CHAN-OPEN 
0D4D, TEMPS 
B,+18 
0E44,CL-LINE 
HL,(CURCHL) 
DE,+09F4 
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The system variable COORDS 
is reset to zero. 

Signal 'the screen is clear’. 
Perform the 'house keeping’ 
tasks. 

Open channel 'S'. 


Use the 'permanent' values. 
Now ‘clear’ the 24 lines 

of the display. 

Ensure that the current 
output address is +09F4 


LD (HL),E (PRINT-OUT). 


INC HL 

LD (HL),D 

LD (SCR-CT),+01 Reset the scroll counter. 

LD BC,+1821 As the upper part of the display 


is being handled the 'upper print 
line’ will be Line '0'. 
Continue into CL-SET. 


THE 'CL-SET' SUBROUTINE 

This subroutine is entered with the BC register pair holding the line and column numbers of a character areas, or the C register holding 
the column number within the printer buffer. The appropriate address of the first character bit is then found. The subroutine returns via 
PO-STORE so as to store all the values in the required system variables. 


ODDY CL-SET LD HL,+5B00 The start of the printer buffer. 
BIT 1,(FLAGS) Jump forward if handling the 
JR NZ,0DF4,CL-SET-2 printer buffer. 
LD A,B Transfer the line number. 
BIT 0,(TV-FLAG) Jump forward if handling the 
JR Z,ODEE,CL-SET-1 main part of the display. 
ADD A,(DF-SZ) The top line of the lower 
SUB +18 part of the display is called 
‘line +18' and this has to be 
converted. 
ODEE CL-SET-1 PUSH BC The line & column numbers are 
saved. 
LD BA The line number is moved. 
CALL 0E9B,CL-ADDR The address for the start of the 
line is formed in HL. 
POP BC The line & column numbers are 
fetched back. 
ODF4 CL-SET-2 LD A,+21 The column number is now 
SUB Cc reversed and transferred to 
LD EA the DE register pair. 
LD D,+00 
ADD HL,DE The required address is now 
JP OADC,PO-STORE formed; and the address and 


the line and column numbers 
are stored by jumping to 
PO-STORE. 


THE 'SCROLLING' SUBROUTINE 


The number of lines of the display that are to be scrolled has to be held on entry to the main subroutine in the B register. 
ODFE CL-SC-ALL LD B,+17 The entry point after ‘scroll?’ 


The main entry point - from above and when scrolling for INPUT..AT. 


OE00 CL-SCROLL CALL 0E9B,CL-ADDR Find the starting address of 
the line. 
LD C,+08 There are eight pixel lines to 


a complete line. 


Now enter the main scrolling loop. The B register holds the number of the top line to be scrolled, the HL register pair the starting 
address in the display area of this line and the C register the pixel line counter. 


OE05 CL-SCR-1 PUSH BC Save both counters. 
PUSH HL Save the starting address. 
LD A,B Jump forward unless 
AND +07 dealing at the present 
LD A,B moment with a 'third' of 
JR NZ,0E19,CL-SCR-3 the display. 


The pixel lines of the top lines of the 'thirds' of the display have to be moved across the 2K boundaries. (Each 'third' = 2K.) 
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OE0D CL-SCR-2 EX DE,HL The result of this 


LD HL,+F8E0 manipulation is to leave HL 

ADD HL,DE unchanged and DE pointing to 

EX DE,HL the required destination. 

LD BC,+0020 There are +20 characters. 

DEC A Decrease the counter as one line 
is being dealt with. 

LDIR Now move the thirty two bytes. 


The pixel lines within the 'thirds' can now be scrolled. The A register holds, on the first pass, +01 - +07, +09 - +OF or +11 - +17. 


0E19 CL-SCR-3 EX DE,HL Again DE is made to point 

LD HL,+FFEO to the required destination. 

ADD HL,DE This time only thirty two 

EX DE,HL locations away. 

LD BA Save the line number in B. 

AND +07 Now find how many characters 

RRCA there are remaining in the 

RRCA third’. 

RRCA 

LD C,A Pass the ‘character total’ to the 
C register. 

LD A,B Fetch the line number. 

LD B,+00 BC holds the 'character total’ 

LDIR and a pixel line from each of the 
characters is ‘scrolled’. 

LD B,+07 Now prepare to increment the 
address to jump across a 'third' 
boundary. 

ADD HL,BC Increase HL by +0700. 

AND +F8 Jump back if there are any 

JR NZ,0EOD,CL-SCR-2 'thirds' left to consider. 


Now find if the loop has been used eight times - once for each pixel line. 


POP HL Fetch the original address. 

INC H Address the next pixel line. 

POP BC Fetch the counters. 

DEC Cc Decrease the pixel line counter 
JR NZ,0E05,CL-SCR-1 and jump back unless eight lines 


have been moved. 
Next the attribute bytes are scrolled. Note that the B register still holds the number of lines to be scrolled and the C register holds zero. 
CALL 0E88,CL-ATTR The required address in the 


attribute area and the number 
of characters in 'B' lines are 


found. 
LD HL,+FFEO The displacement for all 
ADD HL,DE the attribute bytes is 
EX DE,HL thirty two locations away. 
LDIR The attribute bytes are 
‘scrolled’. 
It remains now to clear the bottom line of the display. 
LD B,+01 The B register is loaded with 


+01 and CL-LINE is entered. 


THE 'CLEAR LINES' SUBROUTINE 


This subroutine will clear the bottom 'B' lines of the display. 


0E44 CL-LINE PUSH BC The line number is saved for the 
duration of the subroutine. 
CALL 0E9B,CL-ADDR The starting address for the line 


is formed in HL. 
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LD 


C,+08 


Now enter a loop to clear all the pixel lines. 


OE4A 


0E4D 


CL-LINE-1 


CL-LINE-2 


PUSH 


BC 


DE,+0701 
HL,DE 


BA 


NZ,0E4D,CL-LINE-2 


Now find if the loop has been used eight times. 


Next the attribute bytes are set as required. The value in ATTR-P will be used when handling the main part of the display and the value 


HL 

H 

BC 

Cc 
NZ,0E4A,CL-LINE-1 


in BORDCR when handling the lower part. 


0E80 


CL-LINE-3 


CALL 


0E88,CL-ATTR 


A(ATTR-P) 
0,(TV-FLAG) 
Z,0E80,CL-LINE-3 
A,(BORDCR) 
(HL),A 

BC 


BC 
C,+21 


Again there are eight pixel 
lines to be considered. 


Save the line number and the 
pixel line counter. 

Save the address. 

Save the line number in A. 
Find how many characters are 
involved in 'B mod 8' lines. 
Pass the result to the 

C register. (C will hold +00 

i.e. 256 dec. for a 'third’.) 
Fetch the line number. 

Make the BC register pair 

hold 'one less' than the number 
of characters. 

Make DE point to the first 
character. 

Clear the pixel-byte of the 

first character. 

Make DE point to the second 
character and then clear the 
pixel-bytes of all the other 
characters. 

For each 'third' of the 

display HL has to be increased 
by +0701. 

Now decrease the line number. 
Discard any extra lines and 
pass the 'third'’ count to B. 
Jump back if there are still 
'thirds' to be dealt with. 


Update the address for each 
pixel line. 

Fetch the counters. 

Decrease the pixel line 
counter and jump back unless 
finished. 


The address of the first 
attribute byte and the number 
of bytes are found. 

HL will point to the first 
attribute byte and DE the 
second. 

Fetch the value in ATTR-P. 
Jump forward if handling the 
main part of the screen. 
Otherwise use BORDCR instead. 
Set the attribute byte. 

One byte has been done. 
Now copy the value to all the 
attribute bytes. 

Restore the line number. 

Set the column number to the 
lefthand column and return. 


THE 'CL-ATTR' SUBROUTINE 


This subroutine has two separate functions. 


i. Fora given display area address the appropriate attribute address is returned in the DE register pair. Note that the value on entry 
points to the 'ninth’ line of a character. 


ii. For a given line number, in the B register, the number of character areas in the display from the start of that line onwards is returned 
in the BC register pair. 


0E88 CL-ATTR LD A,H Fetch the high byte. 
RRCA Multiply this value by 
RRCA thirty two. 
RRCA 
DEC A Go back to the 'eight' line. 
OR +50 Address the attribute area. 
LD H,A Restore to the high byte and 
EX DE,HL transfer the address to DE. 
LD H,C This is always zero. 
LD L,B The line number. 
ADD HL,HL Multiply by thirty two. 
ADD HL,HL 
ADD HL,HL 
ADD HL,HL 
ADD HL,HL 
LD B,H Move the result to the 
LD C,L BC register pair before 
RET returning. 


THE 'CL-ADDR' SUBROUTINE 


For a given line number, in the B register, the appropriate display file address is formed in the HL register pair. 


OE9B CL-ADDR LD A,+18 The line number has to be 
SUB B reversed. 
LD D,A The result is saved in D. 
RRCA In effect '(A mod 8) * 32'. 
RRCA In a 'third' of the display 
RRCA the low byte for the: 
AND +E0 1st. line = +00, 

2nd. line = +20, etc. 

LD LA The low byte goes into L. 
LD A,D The true line number is fetched. 
AND +18 In effect '64 +8 * INT (A/8)' 
OR +40 For the upper 'third' of the 


display the high byte = +40, 
middle 'third' = +48, and the 
lower 'third' = +50. 
LD H,A The high byte goes to H. 
RET Finished. 


THE 'COPY' COMMAND ROUTINE 


The one hundred and seventy six pixel lines of the display are dealt with one by one. 


OEAC COPY DI The maskable interrupt is 
disabled during COPY. 
LD B,+BO The '176' lines. 
LD HL,+4000 The base address of the display. 


The following loop is now entered. 


OEB2 COPY-1 PUSH HL Save the base address and 

PUSH BC the number of the line. 

CALL OEF4,COPY-LINE It is called '176' times. 

POP BC Fetch the line number and 

POP HL the base address. 

INC H The base address is updated by 
'256' locations for each line of 
pixels. 
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LD A,H Jump forward and hence round 


AND +07 the loop again directly for the 
JR NZ,0EC9,COPY-2 eight pixel lines of a character 
line. 


For each new line of characters the base address has to be updated. 


LD A,L Fetch the low byte. 

ADD A,+20 Update it by +20 bytes. 

LD LA The carry flag will be reset when 
‘within thirds' of the display. 

CCF Change the carry flag. 

SBC A,A The A register will hold +F8 

AND +F8 when within a 'third' but +00 
when a new ‘third’ is reached. 

ADD A,H The high byte of the 

LD H,A address is now updated. 

OEC9 COPY-2 DJNZ 0EB2,COPY-1 Jump back until '176' lines have 

been printed. 

JR OEDA,COPY-END Jump forward to the end 
routine. 


THE 'COPY-BUFF' SUBROUTINE 


This subroutine is called whenever the printer buffer is to have its contents passed to the printer. 


OECD COPY-BUFF DI Disable the maskable interrupt. 
LD HL,+5B00 The base address of the printer 
buffer. 
LD B,+08 There are eight pixel lines. 
OED3 COPY-3 PUSH BC Save the line number. 
CALL OEF4,COPY-LINE It is called '8' times. 
POP BC Fetch the line number. 
DJNZ 0ED3,COPY-3 Jump back until '8' lines 


have been printed. 


Continue into the COPY-END routine. 


OEDA COPY-END- LD A,+04 Stop the printer motor. 
OUT (+FB),A 
El Enable the maskable interrupt 


and continue into CLEAR-PRB. 


THE 'CLEAR PRINTER BUFFER' SUBROUTINE 


The printer buffer is cleared by calling this subroutine. 


OEDF CLEAR-PRB LD HL,+5B00 The base address of the printer 
buffer. 
LD (PR-CC-lo),L Reset the printer ‘column’. 
XOR A Clear the A register. 
LD BA Also clear the B register (in 
effect B holds dec.256). 
OEE7 PRB-BYTES LD (HL),A The '256' bytes of the 
INC HL printer buffer are all 
DJNZ OEE7,PRB-BYTES cleared in turn. 
RES 1,(FLAGS2) Signal 'the buffer is empty’. 
LD C,+21 Set the printer position and 
JP ODD9,CL-SET return via CL-SET & PO-STORE. 


THE 'COPY-LINE’' SUBROUTINE 
The subroutine is entered with the HL register pair holding the base address of the thirty two bytes that form the pixel-line and the B 
register holding the pixel-line number. 


OEF4 COPY-LINE LD A,B Copy the pixel-line number. 
CP +03 The A register will hold 
SBC A,A +00 until the last two lines 
AND +02 are being handled. 
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OUT 


LD 


(+FB),A 


DA 


There are three tests to be made before doing any 'printing’. 


OEFD COPY-L-1 CALL 


OFOC COPY-L-2 IN 


Now enter a loop to handle these bytes. 


OF 14 COPY-L-3 LD 


OF 18 COPY-L-4 RL 


OF1E COPY-L-5 IN 


THE 'EDITOR' ROUTINES 


The editor is called on two occasions: 


1F54,BREAK-KEY 
C,0FOC,COPY-L-2 
A,+04 

(+FB),A 


OEDF,CLEAR-PRB 
0008,ERROR-1 
+0C 

A,(+FB) 

AA 

M 


NC,OEFD,COPY-L-1 
C,+20 


A,(+FB) 


NC,0F1E,COPY-L-5 
A,D 
(+FB),A 


0F18,COPY-L-4 
Cc 
NZ,0F14,COPY-L-3 


Slow the motor for the last two 
pixel lines only. 

The D register will hold either 
+00 or +02. 


Jump forward unless the 
BREAK key is being pressed. 
But if it is then; 

stop the motor, 

enable the maskable interrupt, 
clear the printer buffer and exit 
via the error handling routine 

- 'BREAK-CONT repeats’. 
Fetch the status of the 

printer. 

Make an immediate return if the 
printer is not present. 

Wait for the stylus. 

There are thirty two bytes. 


Fetch a byte. 

Update the pointer. 

Eight bits per byte. 

Move D left. 

Move each bit into the carry. 
Move D back again, picking up 
the carry from E. 

Again fetch the status of the 
printer and wait for the 

signal from the encoder. 
Now go ahead and pass the 
'pit' to the printer 

Note: bit 2 - low starts the 
motor, bit 1 - high slows the 
motor and bit 7 is high for the 
actual 'printing’. 

‘Print’ each bit. 

Decrease the byte counter. 
Jump back whilst there are 
still bytes; otherwise return. 


i. From the main execution routine so that the user can enter a BASIC line into the system. 


ii. From the INPUT command routine. 


First the 'error stack pointer’ is saved and an alternative address provided. 


OF2C EDITOR LD 
PUSH 

OF30 ED-AGAIN LD 
PUSH 
LD 


HL,(ERR-SP) 
HL 

HL,+107F 

HL 
(ERR-SP),SP 


A loop is now entered to handle each keystroke. 


OF38 ED-LOOP CALL 


PUSH 


15D4,WAIT-KEY 


AF 


The current value is saved on 
the machine stack. 

This is ED-ERROR. 

Any event that leads to the 
error handling routine being 
used will come back to 
ED-ERROR. 


Return once a key has been 
pressed. 
Save the code temporarily. 


D,+00 

E,(PIP) 
HL,+00C8 
03B5,BEEPER 
AF 

HL,+0F38 

HL 


+18 
NC,0F81,ADD-CHAR 
+07 
C,0F81,ADD-CHAR 
+10 
C,0F92,ED-KEYS 


The control keys - INK to TAB -are now considered. 


LD 


BC,+0002 


DA 
+16 
C,OF6C,ED-CONTR 


BC 
7,(FLAGX) 
Z,101E,ED-IGNORE 
15D4,WAIT-KEY 
EA 


The other bytes for the control characters are now fetched. 


OF6C ED-CONTR 


JR 


15D4,WAIT-KEY 
DE 

HL,(K-CUR) 
0,(MODE) 

1655, MAKE-ROOM 


OF8B,ADD-CH-1 


THE 'ADDCHAR' SUBROUTINE 


This subroutine actually adds a code to the current EDIT or INPUT line. 


OF81 ADD-CHAR- RES 


OF8B ADD-CH-1 LD 


0,(MODE) 
HL,(K-CUR) 
1652,ONE-SPACE 
(DE),A 

DE 

(K-CUR),DE 


The editing keys are dealt with as follows: 


OF92 ED-KEYS LD 


EA 
C,+00 
HL,+0F99 


HL,DE 
E,(HL) 
HL,DE 
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Fetch the duration of the 
keyboard click. 

And the pitch. 

Now make the 'pip'. 

Restore the code. 

Pre-load the machine stack 
with the address of ED-LOOP. 


Accept all character codes, 
graphic codes and tokens. 
Also accept ',’. 


Jump forward if the code 
represents an editing key. 


INK & PAPER will require 
two locations. 

Copy the code to D. 
Jump forward with INK & 
PAPER 


Three locations required. 
Jump forward unless dealing 
with INPUT LINE... . 

Get the second code. 

and put it in E. 


Get another code. 

Save the previous codes. 
Fetch K-CUR. 

Signal 'K mode’. 

Make two or three spaces. 
Restore the previous codes. 
Point to the first location. 
Enter first code. 

Then enter the second code 
which will be overwritten if 
there are only two codes - i.e. 
with INK & PAPER. 

Jump forward. 


Signal 'K mode’. 

Fetch the cursor position. 
Make a single space. 

Enter the code into the space 
and signal that the cursor is to 
occur at the location after. Then 
return indirectly to ED-LOOP. 


The code is transferred to 
the DE register pair. 

The base address of the editing 
key table. 

The entry is addressed and 
then fetched into E. 

The address of the handling 


PUSH HL routine is saved on the machine 


stack. 
LD HL,(K-CUR) The HL register pair is set and 
RET an indirect jump made to the 


required routine. 


THE 'EDITING KEYS' TABLE 


address offset character address offset character 

OFAO 09 EDIT OFA5 70 DELETE 

OFA1 66 cursor left OFA6 7E ENTER 

OFA2 6A cursor right OFA7 CF SYMBOL SHIFT 
OFA3 50 cursor down OFA8 D4 GRAPHICS 
OFA4 85 cursor up 


THE 'EDIT KEY' SUBROUTINE 


When in ‘editing mode’ pressing the EDIT key will bring down the ‘current BASIC line’. However in 'INPUT mode' the action of the EDIT 
key is to clear the current reply and allow a fresh one. 


OFAQ ED-EDIT LD HL,(E-PPC) Fetch the current line number. 

BIT 5,(FLAGX) But jump forward if in 

JP NZ,1097,CLEAR-SP "INPUT mode’. 

CALL 196E,LINE-ADDR Find the address of the start of 

CALL 1695,LINE-NO the current line and hence its 
number. 

LD A,D If the line number returned is 

OR E zero then simply clear the 

JP Z,1097,CLEAR-SP editing area. 

PUSH HL Save the address of the line. 

INC HL Move on to collect the 

LD C,(HL) length of the line. 

INC HL 

LD B,(HL) 

LD HL,+000A Add +0A to the length and test 

ADD HL,BC that there is sufficient room 

LD B,H for a copy of the line. 

LD C,L 

CALL 1F05,TEST-ROOM 

CALL 1097,CLEAR-SP Now clear the editing area. 

LD HL,(CURCHL) Fetch the current channel 

EX (SP),HL address and exchange it for the 
address of the line. 

PUSH HL Save it temporarily. 

LD A,+FF Open channel 'R' so that the 

CALL 1601,CHAN-OPEN line will be copied to the editing 
area. 

POP HL Fetch the address of the line. 

DEC HL Goto before the line. 

DEC (E-PPC-lo) Decrement the current line 


number so as to avoid 
printing the cursor. 


CALL 1855,OUT-LINE Print the BASIC line 
INC (E-PPC-lo) Increment the current line 
number. 


Note: The decrementing of the 
line number does not always 
stop the cursor from being 


printed. 
LD HL,(E-LINE) Fetch the start of the line in 
INC HL the editing area and step past 
INC HL the line number and the 
INC HL length to find the address 
INC HL for K-CUR. 
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LD (K-CUR),HL 


POP HL Fetch the former channel 
CALL 1615,CHAN-FLAG address and set the 
RET appropriate flags before 


returning to ED-LOOP. 


THE 'CURSOR DOWN EDITING' SUBROUTINE 


OFF3 ED-DOWN BIT 5,(FLAGX) Jump forward if in 
JR NZ,1001,ED-STOP "INPUT mode’. 
LD HL,+5C49 This is E-PPC. 
CALL 190F,LN-FETCH The next line number is found 
JR 106E,ED-LIST and a new automatic listing 
produced. 
1001 ED-STOP LD (ERR-NR),+10 ‘STOP in INPUT' report. 
JR 1024,ED-ENTER Jump forward. 
THE 'CURSOR LEFT EDITING' SUBROUTINE 
1007 ED-LEFT CALL 1031,ED-EDGE The cursor is moved. 
JR 1011,ED-CUR Jump forward. 
THE 'CURSOR RIGHT EDITING' SUBROUTINE 
100C ED-RIGHT LD A,(HL) The current character is tested 
CP +0D and if it is ‘carriage return’ 
RET Z then return. 
INC HL Otherwise make the cursor 
come after the character. 
1011 ED-CUR LD (K-CUR),HL Set the system variable K-CUR. 
RET 
THE 'DELETE EDITING' SUBROUTINE 
1015 ED-DELETE CALL 1031,ED-EDGE Move the cursor leftwards. 
LD BC,+0001 Reclaim the current 
JP 19E8,RECLAIM-2 character. 


THE 'ED-IGNORE' SUBROUTINE 


101E ED-IGNORE CALL 15D4,WAIT-KEY The next two codes from the 
CALL 15D4,WAIT-KEY key-input routine are ignored. 
THE 'ENTER EDITING' SUBROUTINE 
1024 ED-ENTER POP HL The address of ED-LOOP and 
POP HL ED-ERROR are discarded. 
1026 ED-END POP HL The old value of ERR-SP 
LD (ERR-SP),HL is restored. 
BIT 7,(ERR-NR) Now return if there were 
RET NZ no errors. 
LD SP,HL Otherwise make an indirect 
RET jump to the error routine. 


THE 'ED-EDGE' SUBROUTINE 


The address of the cursor is in the HL register pair and will be decremented unless the cursor is already at the start of the line. Care is 
taken not to put the cursor between control characters and their parameters. 


1031 ED-EDGE SCF DE will hold either E-LINE 
CALL 1195,SET-DE (for editing) or WORKSP 
(for INPUTing). 
SBC HL,DE The carry flag will become set 
if the cursor is already to be at 
ADD HL,DE the start of the line. 
INC HL Correct for the subtraction. 
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Drop the return address. 
Return via ED-LOOP if the 
carry flag is set. 

Restore the return address. 
Move the current address of 
the cursor to BC. 


Now enter a loop to check that control characters are not split from their parameters. 


103E ED-EDGE-1 LD 


1051 ED-EDGE-2 AND 


+10 


NZ,1051,ED-EDGE-2 
HL 


A 
HL,BC 
HL,BC 


DE,HL 
C,103E,ED-EDGE-1 


THE 'CURSOR UP EDITING' SUBROUTINE 


1059 ED-UP BIT 


106E ED-LIST CALL 


5,(FLAGX) 
NZ 

HL,(E-PPC) 
196E,LINE-ADDR 
DE,HL 


1695,LINE-NO 
HL,+5C4A 
1910,LN-STORE 
1795,AUTO-LIST 
A,+00 
1601,CHAN-OPEN 


THE 'ED-SYMBOL' SUBROUTINE 
If SYMBOL & GRAPHICS codes were used they would be handled as follows: 


1076 ED-SYMBOL BIT 
JR 
107C ED-GRAPH JP 


7,(FLAGX) 
Z,1024,ED-ENTER 
0F81,ADD-CHAR 


THE 'ED-ERROR' SUBROUTINE 


Come here when there has been some kind of error. 


107F ED-ERROR | BIT 
JR 


4,(FLAGS2) 
Z,1026,ED-END 


HL will point to the 

character in the line after 

that addressed by DE. 

Fetch a character code. 

Jump forward if the code 
does not represent 

INK to TAB. 

Allow for one parameter. 
Fetch the code anew. 

Carry is reset for TAB. 

Note: This splits off AT & TAB 
but AT & TAB in this form are 
not implemented anyway so it 
makes no difference. 

Jump forward unless dealing 
with AT & TAB which would 
have two parameters, if used. 
Prepare for true subtraction. 
The carry flag will be reset 
when the ‘updated pointer’ 
reaches K-CUR. 

For the next loop use the 
‘updated pointer’, but if 
exiting use the 'present 
pointer’ for K-CUR. 

Note: It is the control character 
that is deleted when using 
DELETE. 


Return if in 'INPUT mode’. 


Fetch the current line 

number and its start address. 
HL now points to the previous 
line. 

This line's number is fetched. 
This is E-PPC-hi. 

The line number is stored. 

A new automatic listing is 
now produced and channel 'K' 
re-opened before returning to 
ED-LOOP. 


Jump back unless dealing with 
INPUT LINE. 
Jump back. 


Jump back if using other than 
channel 'K’. 


LD (ERR-NR),+FF Cancel the error number and 


LD D,+00 give a 'rasp' before going 
LD E,(RASP) around the editor again. 
LD HL,+1A90 

CALL 0385,BEEPER 

JP 0F30,ED-AGAIN 


THE 'CLEAR-SP' SUBROUTINE 


The editing area or the work space is cleared as directed. 


1097 CLEAR-SP PUSH HL Save the pointer to the space. 

CALL 1190,SET-HL DE will point to the first 
character and HL the last. 

DEC HL The correct amount is now 
CALL 19E5,RECLAIM-1 reclaimed. 
LD (K-CUR),HL The system variables K-CUR 
LD (MODE),+00 and MODE ('K mode’) are 
POP HL initialised before fetching 
RET the pointer and returning. 


THE 'KEYBOARD INPUT' SUBROUTINE 
This important subroutine returns the code of the last key to have bean pressed but note that CAPS LOCK, the changing of the mode 
and the colour control parameters are handled within the subroutine. 


10A8 KEY-INPUT BIT 3,(TV-FLAG) Copy the edit-linear the 
CALL NZ,111D,ED-COPY INPUT-line to the screen if 
the mode has changed. 
AND A Return with both carry 
BIT 5,(FLAGS) and zero flags reset if no 
RET Z new key has been pressed 
LD A,(LAST-K) Otherwise fetch the code and 
RES 5,(FLAGS) signal that it has been taken 
PUSH AF Save the code temporarily. 
BIT 5,(TV-FLAG) Clear the lower part of the 
CALL NZ,0D6E,CLS-LOWER display if necessary; 
e.g. after 'scroll?'; 
POP AF Fetch the code. 
CP +20 Accept all characters and 
JR NC,111B,KEY-DONE token codes. 
CP +10 Jump forward with most of 
JR NC,10FA,KEY-CONTR the control character codes. 
CP +06 Jump forward with the 'mode’. 
JR NC,10DB,KEY=M&CL codes and the CAPS LOCK code. 


Now deal with the FLASH, BRIGHT& INVERSE codes. 


LD B,A Save the code. 
AND +01 Keep only bit 0. 
LD C,A C holds +00 (= OFF) or 
C holds +01 (= ON). 
LD A,B Fetch the code. 
RRA Rotate it once (losing bit 0). 
ADD A,+12 Increase it by +12 giving for 
JR 1105,KEY-DATA FLASH - +12, BRIGHT - +13 


and INVERSE - +14. 


The CAPS LOCK code and the mode codes are dealt with ‘locally’. 


10DB  KEY-M&CL JR NZ,10E6,KEY-MODE Jump forward with 'mode' codes. 
LD HL,+5C6A This is FLAGS2. 
LD A,+08 Flip bit 3 of FLAGS2. This is 
XOR (HL) the CAPS LOCK flag. 
LD (HL),A 
JR 10F4,KEY-FLAG Jump forward. 

10E6  KEY-MODE CP +0E Check the lower limit. 
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RET Cc 


SUB +0D Reduce the range. 

LD HL,+5C41 This is MODE. 

CP (HL) Has it been changed? 

LD (HL),A Enter the new 'mode' code. 

JR NZ,10F4,KEY-FLAG Jump if it has changed; 

LD (HL),+00 otherwise make it 'L mode’. 
10F4 KEY-FLAG — SET 3,(TV-FLAG) Signal 'the mode might have 

changed. 
CP A Reset the carry flag and 
RET return. 


The control key codes (apart from FLASH, BRIGHT & INVERSE) are manipulated. 


10FA KEY-CONTR LD BA Save the code. 
AND +07 Make the C register hold the 
LD CA parameter. (+00 to +07) 
LD A,+10 A now holds the INK code. 
BIT 3,B But if the code was an 
JR NZ,1105,KEY-DATA ‘unshifted' code then make A 
INC A hold the PAPER code. 


The parameter is saved in K-DATA and the channel address changed from KEY-INPUT to KEY-NEXT. 


1105 KEY-DATA LD (K-DATA),C Save the parameter. 
LD DE,+110D This is KEY-NEXT. 
JR 1113,KEY-CHAN Jump forward. 
Note: On the first pass entering at KEY-INPUT the A register is returned holding a control code’ and then on the next pass, entering 


at KEY-NEXT, it is the parameter that is returned. 


110D KEY-NEXT LD A,(K-DATA) Fetch the parameter. 
LD DE,+10A8 This is KEY-INPUT. 


Now set the input address in the first channel area. 


1113 KEY-CHAN LD HL,(CHANS) Fetch the channel address. 
INC HL 
INC HL 
LD (HL),E Now set the input address. 
INC HL 
LD (HL),D 


Finally exit with the required code in the A register. 


111B KEY-DONE SCF Show a code has been found 
RET and return. 


THE 'LOWER SCREEN COPYING' SUBROUTINE 


This subroutine is called whenever the line in the editing area or the INPUT area is to be printed in the lower part of the screen. 


111D ED-COPY CALL 0D4D,TEMPS Use the permanent colours. 

RES 3,(TV-FLAG) Signal that the 'mode is to be 

RES 5,(TV-FLAG) considered unchanged’ and the 
‘lower screen does not need 
clearing’. 

LD HL,(S-POSNL) Save the current value of 

PUSH HL S-POSNL. 

LD HL,(ERR-SP) Keep the current value of 

PUSH HL ERR-SP. 

LD HL,+1167 This is ED-FULL. 

PUSH HL Push this address on to the 

LD (ERR-SP),SP machine stack to make ED-FULL 


the entry point following an 
error. 
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HL,(ECHO-E) 
HL 


1195,SET-HL 
DE,HL 
187D,OUT-LINE2 
DE,HL 
18E1,OUT-CURS 
HL,(S-POSNL) 
(SP),HL 


DE,HL 
0D4D,TEMPS 


Push the value of ECHO-E 
on to the stack. 

Make HL point to the start 

of the space and DE the end. 


Now print the line. 

Exchange the pointers and 
print the cursor. 

Next fetch the Current value 
of S-POSNL and exchange it 
with ECHO-E. 

Pass ECHO-E to DE. 

Again fetch the permanent 
colours. 


The remainder of any line that has been started is now completed with spaces printed with the 'permanent' PAPER colour. 


1150 ED-BLANK LD 


115E ED-SPACES LD 


New deal with any errors. 


1167 ED-FULL LD 


A,(S-POSNL-hi) 
D 
C,117C,ED-C-DONE 


NZ,115E,ED-SPACES 


AE 
(S-POSNL-lo) 


NC,117C,ED-C-DONE 
A,+20 

DE 

09F4,PRINT-OUT 

DE 

1150,ED-BLANK 


D,+00 
E,(RASP) 
HL,+1A90 
03B5,BEEPER 
(ERR-NR),+FF 
DE,(S-POSNL) 
117E,ED-C-END 


Fetch the current line number 
and subtract the old line number. 
Jump forward if no 'blanking' 
of lines required. 

Jump forward if not on the 
same line. 

Fetch the old column number 
and subtract the new column 
number. 

Jump if no spaces required. 
A ‘space’. 

Save the old values, 

Print it. 

Fetch the old values. 

Back again. 


Give out a 'rasp'. 


Cancel the error number. 
Fetch the current value of 
S-POSNL and jump forward. 


The normal exit upon completion of the copying over of the editor the INPUT line. 


117C ED-C-DONE POP 


POP 


But come here after an error. 


117E ED-C-END POP 


DE 
HL 


HL 
(ERR-SP),HL 
BC 


DE 
ODD9,CL-SET 
HL 
(ECHO-E),HL 
(X-PTR-hi), +00 


THE 'SET-HL' AND 'SET-DE' SUBROUTINES 


These subroutines return with HL pointing to the first location and DE the 'last' location of either the editing area or the work space. 


1190 SET-HL LD 


HL,(WORKSP) 
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The new position value. 
The ‘error address'. 


The old value of ERR-SP is 
restored. 

Fetch the old value of 
S-POSNL. 

Save the new position values. 
Set the system variables. 

The old value of S-POSNL 
goes into ECHO-E. 

X-PTR is cleared ina 
suitable manner and the return 
made. 


Point to the last location 


DEC HL 
AND A 

1195  SET-DE LD DE,(E-LINE) 
BIT 5,(FLAGX) 
RET Z 
LD DE,(WORKSP) 
RET c 
LD HL,(STKBOT) 
RET 


THE 'REMOVE-FP' SUBROUTINE 


of the editing area. 
Clear the carry flag. 
Point to the start of the 
editing area and return if 
in ‘editing mode’. 
Otherwise change DE. 
Return if now intended. 
Fetch STKBOT and then 
return. 


This subroutine removes the hidden floating-point forms in a BASIC line. 


11A7. REMOVE-FP LD A,(HL) 
cP +0E 
LD BC,+0006 
CALL Z,19E8,RECLAIM-2 
LD A,(HL) 
INC HL 
cP +0D 
JR NZ,11A7,REMOVE-FP 
RET 


58 


Each character in turn is 
examined. 

Is it a number marker? 

It will occupy six locations. 
Reclaim the F-P number. 
Fetch the code again. 
Update the pointer. 
‘Carriage return’? 

Back if not. But make a 
simple return if it is. 


THE EXECUTIVE ROUTINES 


THE 'INITIALISATION' ROUTINE 


The main entry point to this routine is at START/NEW (11CB). When entered from START (0000), as when power is first applied to the 
system, the A register holds zero and the DE register the value +F FFF. However the main entry point can also be reached following 


the execution of the NEW command routine. 


THE 'NEW COMMAND' ROUTINE 


11B7. NEW DI 
LD A,+FF 
LD DE,(RAMTOP) 
EXX 
LD BC,(P-RAMT) 
LD DE,(RASP/PIP) 
LD HL,(UDG) 
EXX 


The main entry point. 


11CB  START/NEW LD B.A 
LD A,+07 
OUT (+FE),A 
LD A,+3F 
LD LA 
DEFB +00,+00,+00 
DEFB +00,+00,+00 


Now the memory is checked. 


11DA = RAM-CHECK LD H,D 
LD LE 
11DC  =RAM-FILL ~=-LD (HL), +02 
DEC HL 
cP H 
JR NZ,11DC,RAM-FILL 
11E2. RAM-READ AND A 
SBC HL,DE 
ADD HL,DE 
INC HL 
JR NC,11EF,RAM-DONE 
DEC (HL) 
JR Z,11EF,RAM-DONE 
DEC (HL) 
JR Z,11E2,RAM-READ 
11EF | RAM-DONE DEC HL 


Disable the maskable interrupt. 
The NEW flag. 

The existing value of RAMTOP 
is preserved. 

Load the alternate registers 
with the following system 
variables. All of which will 

also be preserved. 


Save the flag for later. 
Make the border white in 
colour. 

Set the | register to hold 
the value of +3F. 

Wait 24 T states. 


Transfer the value in DE 
(START = +FFFF, NEW = 
RAMTOP). 

Enter the value of +02 into 
every location above +3FFF. 


Prepare for true subtraction. 
The carry flag will become 
reset when the top is reached. 
Update the pointer. 

Jump when at top. 

+02 goes to +01. 

But if zero then RAM is faulty. 
Use current HL as top. 

+01 goes to +00. 

Step to the next test unless it 
fails. 

HL points to the last actual 
location in working order. 


Next restore the 'preserved' system variables. (Meaningless when coming from START.) 


EXX 
LD (P-RAMT),BC 

LD (RASP/PIP),DE 
LD (UDG),HL 

EXX 

INC B 

JR Z,1219,RAM-SET 


Switch registers. 
Restore P-RAMT,RASP/PIP 
&UDG 


Test the START/NEW flag. 
Jump forward if coming from 
the NEW command routine. 


Overwrite the system variables when coming from START and initialise the user-defined graphics area. 


LD 
LD 


LD 


(P-RAMT),HL 
DE,+3EAF 


BC,+00A8 


DE,HL 


(UDG),HL 

HL 

BC,+0040 
(RASP/PIP),BC 


Top of physical RAM. 

Last byte of 'U' in character 
set. 

There are this number of bytes 
in twenty one letters. 

Switch the pointers. 

Now copy the character forms 
of the letter ‘A’ to 'U'. 

Switch the pointers back. 
Point to the first byte. 

Now set UDG. 

Down one location. 

Set the system variables 
RASP & PIP. 


The remainder of the routine is common to both the START and the NEW operations. 


1219 RAM-SET LD 
LD 
LD 


Next the machine stack is set up. 


(RAMTOP),HL 
HL,+3C00 
(CHARS),HL 


HL,(RAMTOP) 
(HL),+3E 
HL 


SP,HL 


HL 
HL 
(ERR-SP),HL 


1 
IY,+5C3A 


HL,+5CB6 
(CHANS),HL 
DE,15AF 


(DATADD),HL 
HL 
(PROG),HL 
(VARS), HL 
(HL),+80 


HL 
(E-LINE),HL 
(HL),+0D 

HL 

(HL),+80 

HL 
(WORKSP),HL 
(STKBOT),HL 


Set RAMTOP. 
Initialise the system variable 
CHARS. 


The top location is made to 
hold +3E. 

The next location is left holding 
zero. 

These two locations represent 
the ‘last entry’. 

Step down two locations to 
find the correct value for 
ERR-SP. 


Interrupt mode 1 is used. 

IY holds +ERR-NR always. 

The maskable interrupt can now 
be enabled. The real-time clock 
will be updated and the keyboard 
scanned every 1/50th of a 
second. 

The base address of the 
channel information area. 

The initial channel data 

is moved from the table 

(15AF) to the channel 
information area. 

The system variable DATADD 
is made to point to the last 
location of the channel data. 
And PROG & VARS to the 

the location after that. 


The end-marker of the 

variables area. 

Move on one location to find 

the value for E-LINE. 

Make the edit-line be a single 
‘carriage return’ character. 

Now enter an end-marker. 

Move on one location to find 

the value for WORKSP, STKBOT 
& STKEND. 


(STKEND),HL 
A,+38 
(ATTR-P),A 
(ATTR-T),A 
(BORDCR),A 
HL,+0523 
(REPDEL),HL 
(KSTATE-0) 
(KSTATE-4) 
HL,+15C6 
DE,+5C10 
BC,+000E 


1,(FLAGS) 
OEDF,CLEAR-PRB 
(DF-SZ),+02 
OD6B,CLS 


A 
DE, +1538 
0C0A,PO-MSG 
5,(TV-FLAG) 


12A9,MAIN-1 


THE 'MAIN EXECUTION' LOOP 


The main loop extends from location 12A2 to location 15AE and it controls the ‘editing mode’, the execution of direct commands and the 


production of reports. 
12A2 MAIN-EXEC LD 


CALL 
12A9 MAIN-1 CALL 


12AC MAIN-2 LD 


(DF-SZ),+02 


1795,AUTO-LIST 
16B0,SET-MIN 


A,+00 
1601,CHAN-OPEN 
OF2C,EDITOR 


1B17,LINE-SCAN 


7,(ERR-NR) 
NZ,12CF,MAIN-3 
4,(FLAGS2) 
Z,1303,MAIN-4 
HL,(E-LINE) 


11A7,REMOVE-FP 


(ERR-NR),+FF 
12AC,MAIN-2 


Initialise the colour system 
variables to : FLASH 0, 
BRIGHT 0, PAPER 7, & INK 0. 


Initialise the system 

variables REPDEL & REPPER. 
Make KSTATE-O hold +FF 
Make KSTATE-4 hold +FF 
Next move the initial stream 
data from its table to the 
streams area. 


Signal ‘printer in use’ 

and clear the printer buffer. 
Set the size of the lower 
part of the display and clear 
the whole display. 

Now print the message 

‘© 1982 Sinclair Research Ltd’ 
on the bottom line. 

Signal 'the lower part will 
required to be cleared. 
Jump forward into the main 
execution loop. 


The lower part of the screen 
is to be two lines in size. 
Produce an automatic listing. 
All the areas from E-LINE 
onwards are given their 
minimum configurations. 


Channel 'K' is opened before 
calling the EDITOR. 

The EDITOR is called to allow 
the user to build up a BASIC line. 
The current line is scanned for 
correct syntax. 

Jump forward if the syntax is 
correct. 

Jump forward if other than 
channel 'K' is being used. 
Point to the start of the line 
with the error. 

Remove the floating-point 
forms from this line. 

Reset ERR-NR and jump back 
to MAIN-2 leaving the listing 
unchanged. 


The 'edit-line' has passed syntax and the three types of line that are possible have to be distinguished from each other. 


12CF MAIN-3 LD 


HL,(E-LINE) 
(CH-ADD),HL 
19FB,E-LINE-NO 
A.B 

fe 
NZ,155D,MAIN-ADD 


Point to the start of the line. 

Set CH-ADD to the start also. 
Fetch any line number into BC. 
Is the line number a valid 

one? 

Jump if it is so, and add the new 
line to the existing program. 


RST 0018 Fetch the first character of 


CP +0D the line and see if the line is 
‘carriage return only’. 
JR Z,12A2,MAIN-EXEC If it is then jump back. 


The 'edit-line' must start with a direct BASIC command so this line becomes the first line to be interpreted. 


BIT 0,(FLAGS2) Clear the whole display unless 

CALL NZ,ODAF,CL-ALL the flag says it is unnecessary. 

CALL OD6E,CLS-LOWER Clear the lower part anyway. 

LD A,+19 Set the appropriate value 

SUB (S-POSN-hi) for the scroll counter. 

LD (SCR-CT),A 

SET 7,(FLAGS) Signal ‘line execution’. 

LD (ERR-NR),+FF Ensure ERR-NR is correct. 

LD (NSPPC),+01 Deal with the first statement in 
the line. 

CALL 1B8A,PROG-RUN Now the line is interpreted. 


Note: The address 1303 goes on 
to the machine stack and is 
addressed by ERR-SP. 


After the line has been interpreted and all the actions consequential to it have been completed a return is made to MAIN-4, so that a 
report can be made. 


1303 MAIN-4 HALT The maskable interrupt must be 
enabled. 
RES 5,(FLAGS) Signal 'ready for a new key’. 
BIT 1,(FLAGS2) Empty the printer buffer if 
CALL NZ,0OECD,COPY-BUFF it has been used. 
LD A,(ERR-NR) Fetch the error number and 
INC A increment it. 
1313 MAIN-G PUSH AF Save the new value. 
LD HL,+0000 The system variables 
LD (FLAGX),H FLAGX, X-PTR-hi & 
LD (X-PTR-hi),H DEFADD are all set to zero. 
LD (DEFADD),HL 
LD HL,+0001 Ensure that stream +00 
LD (STRMS-6),HL points to channel 'K' 
CALL 16B0,SET-MIN Clear all the work areas and the 
calculator stack. 
RES 5,(FLAGX) Signal 'editing mode’. 
CALL OD6E,CLS-LOWER Clear the lower screen. 
SET 5,(TV-FLAG) Signal 'the lower screen will 
require clearing’. 
POP AF Fetch the report value. 
LD BA Make a copy in B. 
CP +0A Jump forward with report 
JR C,133C,MAIN-5 numbers '0 to 9". 
ADD A,+07 Add the ASCII letter 
offset value. 
133C MAIN-5 CALL 15EF,OUT-CODE Print the report code and 
LD A,+20 follow it with a ‘space’. 
RST 0010,PRINT-A-1 
LD A,B Fetch the report value and 
LD DE,+1391 use it to identify the 
CALL OCOA,PO-MSG required report message. 
XOR A Print the message and follow 
LD DE,+1536 it by a ‘comma’ and a ‘space’. 
CALL OCOA,PO-MSG 
LD BC,(PPC) Now fetch the current line 
CALL 1A1B,OUT-NUM1 number and print it as well. 
LD A,+3A Follow it by a ':' 
RST 0010,PRINT-A-1 
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1373 MAIN-6 
1376 MAIN-7 


1384 MAIN-8 


1386 MAIN-9 


LD C,(SUBPPC) 


LD B,+00 

CALL 1A1B,OUT-NUM1 
CALL 1097,CLEAR-SP 
LD A,(ERR-NR) 

INC A 

JR Z,1386,MAIN-9 
cP +09 

JR Z,1373,MAIN-6 
cP +15 

JR NZ,1376,MAIN-7 
INC (SUBPPC) 

LD BC,+0003 

LD DE,+5C70 

LD HL,+5C44 

BIT 7,(NSPPC) 

JR Z,1384,MAIN-8 
ADD HL,BC 

LDDR 

LD (NSPPC),+FF 
RES 3,(FLAGS) 

JP 12AC,MAIN-2 


THE REPORT MESSAGES 


Each message is given with the last character inverted (+80 hex.). 


1391 DEFB +80 
1392 Report0O 
1394 Report 1 
13A4 Report 2 
13B6 Report 3 
13C6 Report 4 
13D2 Report 5 
13DF Report 6 
13ED Report 7 
1401 Report 8 
140C Report 9 
141A ReportA 
142A Report B 
143E Report C 
144F Report D 
1463 ReportE 
146E Report F 
147F Report G 
148F Report H 
149C Report! 
14AC Report J 
14BE Report K 
14CC Report L 
14DE Report M 
14EC Report N 
14FA Report O 
1508 Report P 
1516 ReportQ 
1525 ReportR 


- initial byte is stepped over. 
-'OK' 

- 'NEXT without FOR' 

- 'Variable not found’ 

- ‘Subscript wrong’ 

- ‘Out of memory' 

- ‘Out of screen’ 

- 'Number too big’ 

- 'RETURN without GOSUB' 
- 'End of file’ 

- 'STOP statement’ 

- ‘Invalid argument’ 

- Integer out of range’ 

- 'Nonsense in BASIC’ 

- 'BREAK - CONT repeats’ 
- ‘Out of DATA' 

- ‘Invalid file name' 

-'No room for line’ 

- 'STOP in INPUT' 

- 'FOR without NEXT' 

- ‘Invalid I/O device’ 

- ‘Invalid colour’ 

- 'BREAK into program’ 

- 'RAMTOP no good' 

- 'Statement lost’ 

- ‘Invalid stream' 

- 'FN without DEF' 

- ‘Parameter error’ 

- 'Tape loading error’ 
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Fetch the current statement 
number into the BC register 
pair and print it. 

Clear the editing area. 

Fetch the error number again. 
Increment it as usual. 

If the program was completed 
successfully there cannot be 
any 'CONTinuing' so jump. 

If the program halted with 
‘STOP statement’ or 'BREAK 
into program’ CONTinuing will 
be from the next statement; 
otherwise SUBPPC is unchanged. 
The system variables OLDPPC 
& OSPCC have now to be made 
to hold the CONTinuing line 

and statement numbers. 

The values used will be those in 
PPC & SUBPPC unless NSPPC 
indicates that the 'break' 
occurred before a ‘jump’. 

(i.e. after a GO TO statement 
etc.) 

NSPPC is reset to indicate 

‘no jump’. 

'K mode' is selected. 

And finally the jump back is 
made but no program listing 

will appear until requested. 


There are also the following two messages. 


1537 ie 
1539 '© 1982 Sinclair Research Ltd' 


Report G - No room for line 


1555 REPORT-G LD A,+10 
LD BC,+0000 
JP 1313,MAIN-G 


THE 'MAIN-ADD' SUBROUTINE 


This subroutine allows for a new BASIC line to be added to the existing BASIC program in the program area. Ifa line has both an old 
and a new version then the old one is 'reclaimed’. A new line that consists of only a line number does not go into the program area. 


155D  MAIN-ADD- LD (E-PPC),BC 
LD HL,(CH-ADD) 
EX DE,HL 
LD HL,+1555 
PUSH HL 
LD HL,(WORKSP) 
SCF 
SBC, HL,DE 
PUSH HL 
LD H,B 
LD L,C 
CALL 196E,LINE-ADDR 
JR NZ,157D,MAIN-ADD1 
CALL 19B8,NEXT-ONE 
CALL 19E8,RECLAIM-2 
157D  MAIN-ADD1 POP BC 
LD A.C 
DEC A 
OR B 
JR 15AB,MAIN-ADD2 
PUSH BC 
INC BC 
INC BC 
INC BC 
INC BC 
DEC HL 
LD DE,(PROG) 
PUSH DE 
CALL 1655, MAKE-ROOM 
POP HL 
LD (PROG),HL 
POP BC 
PUSH BC 
INC DE 
LD HL,(WORKSP) 
DEC HL 
DEC HL 
LDDR 


LD HL,(E-PPC) 


-a'comma' and a 'space' 


'G' has the code '10+07+30' 
Clear BC. 
Jump back to give the report. 


Make the new line number the 
‘current line’. 

Fetch CH-ADD and save the 
address in DE. 

Push the address of REPORT-G 
on to the machine stack. 
ERR-SP will now point to 
REPORT-G. 

Fetch WORKSP. 

Find the length of the line 
from after the line number to 
the 'carriage return’ character 
inclusively. 

Save the length. 

Move the line number to the 
HL register pair. 

Is there an existing line 

with this number? 

Jump if there was not. 

Find the length of the ‘old' 
line and reclaim it. 

Fetch the length of the 

‘new' line and jump forward 

if it is only a ‘line number 

and a carriage return’. 


Save the length. 

Four extra locations will be 
needed. 

i.e. two for the number & 

two for the length. 

Make HL point to the location 
before the ‘destination’. 

Save the current value of 
PROG to avoid corruption when 
adding a first line. 

Space for the new line is created. 
The old value of PROG is 
fetched and restored. 

A copy of the line length 
(without parameters) is taken. 
Make DE point to the end 
location of the new area 

and HL to the 'carriage 
return’ character of the new 
line in the editing area. 

Now copy over the line. 

Fetch the line's number. 


EX DE,HL Destination into HL & 
number into DE. 


POP BC Fetch the new line's length. 
LD (HL),B The high length byte. 
DEC HL 
LD (HL),C The low length byte. 
DEC HL 
LD (HL),E The low line number byte. 
DEC HL 
LD (HL),D The high line number byte. 
15AB MAIN-ADD2 POP AF Drop the address of REPORT-G. 
JP 12A2,MAIN-EXEC Jump back and this time do 


produce and automatic listing. 


THE "INITIAL CHANNEL INFORMATION' 
Initially there are four channels - 'K’, 'S', 'R', & 'P' - for communicating with the 'keyboard’, 'screen’, ‘work space’ and 'printer 
channel the output routine address comes before the input routine address and the channel's code. 


. For each 


15AF DEFB F4 09 - PRINT-OUT 
DEFB A8 10 - KEY-INPUT 
DEFB 4B -'K' 

15B4 DEFB F4 09 - PRINT-OUT 
DEFB C4 15 - REPORT-J 
DEFB 53 -'S' 

15B9 DEFB 81 OF - ADD-CHAR 
DEFB C4 15 - REPORT-J 
DEFB 52 -'R' 

15BE DEFB F4 09 - PRINT-OUT 
DEFB C415 - REPORT-J 
DEFB 50 -'P' 

15C3 DEFB 80 - End marker. 

Report J - Invalid I/O device 

15C4 REPORT-J RST 0008,ERROR-1 Call the error handling 

DEFB +12 routine 


THE "INITIAL STREAM DATA’ 


Initially there are seven streams - +FD to +03. 


15C6 DEFB 0100 - stream +FD leads to channel _'K' 


15C8 DEFB 0600 -streaam+FE " : 'S' 
15CA DEFB 0B 00 -stream+FF " 7 'R' 
15CC DEFB 0100 -stream+00 " 7 'K' 
15CE DEFB 0100 -stream+01 " . 'K' 
15DO0 DEFB 0600 -stream+02 " 5 'S' 
15D2 DEFB 1000 - stream +03 " = ‘P' 


THE 'WAIT-KEY' SUBROUTINE 


This subroutine is the controlling subroutine for calling the current input subroutine. 


15D4 WAIT-KEY BIT 5,(TV-FLAG) Jump forward if the flag 
JR NZ,15DE,WAIT-KEY1 indicates the lower screen 
does not require clearing. 
SET 3,(TV-FLAG) Otherwise signal 'consider 
the mode as having changed". 
15DE WAIT-KEY1 CALL 15E6,INPUT-AD Call the input subroutine 
indirectly via INPUT-AD. 
RET Cc Return with acceptable codes. 
JR Z,15DE,WAIT-KEY1 Both the carry flag and the 


zero flag are reset if 'no key is 
being pressed’; otherwise 
signal an error. 
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Report 8 - End of file 
15E4 REPORT-8 = RST 0008,ERROR-1 
DEFB +07 


THE 'INPUT-AD' SUBROUTINE 


Call the error handling 
routine. 


The registers are saved and HL made to point to the input address. 


15E6 INPUT-AD EXX 


PUSH HL 

LD HL,(CURCHL) 
INC HL 

INC HL 

JR 15F7,CALL-SUB 


THE 'MAIN PRINTING' SUBROUTINE 


Save the registers. 

Fetch the base address for the 
current channel information. 
Step past the output address. 


Jump forward. 


The subroutine is called with either an absolute value or a proper character code in the A register. 


15EF OUT-CODE LD E,+30 
ADD AE 

15F2. PRINT-A-2._ EXX 
PUSH HL 
LD HL,(CURCHL) 


Increase the value in the 
A register by +30. 
Again save the registers. 


Fetch the base address for the 
current channel. This will point 
to an output address. 


Now call the actual subroutine. HL points to the output or the input address as directed. 


15F7 CALL-SUB-—_LD E,(HL) 
INC HL 
LD D,(HL) 
EX DE,HL 
CALL 162C,CALL-JUMP 
POP HL 
EXX 
RET 


THE 'CHAN-OPEN' SUBROUTINE 


This subroutine is called with the A register holding a valid stream number - normally +FD to +03. Then depending on the stream data 


a particular channel will be made the current channel. 


1601 CHAN-OPEN ADD AA 
ADD A,+16 
LD L.A 
LD H,+5C 
LD E,(HL) 
INC HL 
LD D,(HL) 
LD A.D 
OR E 
JR NZ,1610,CHAN-OP-1 


Report O - Invalid stream 
160E REPORT-O RST 0008,ERROR-1 
DEFB +17 


Fetch the low byte. 


Fetch the high byte. 

Move the address to the HL 
register pair. 

Call the actual subroutine. 
Restore the registers. 


Return will be from here 
unless an error occurred. 


The value in the A register is 
doubled and then increased by 
+16. The result is moved to L. 
The address 5C16 is the base 
address for stream +00. 

Fetch the first byte of the 
required stream's data; then 
the second byte. 

Give an error if both bytes 

are zero; otherwise jump 
forward. 


Call the error handling 
routine. 


Using the stream data now find the base address of the channel information associated with that stream. 


1610  CHAN-OP-1 DEC DE 
LD HL,(CHANS) 


Reduce the stream data. 
The base address of the whole 
channel information area. 
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ADD HL,DE 


THE 'CHAN-FLAG' SUBROUTINE 


Form the required address in 
this area. 


The appropriate flags for the different channels are set by this subroutine. 


1615. CHAN-FLAG LD (CURCHL),HL 
RES 4,(FLAGS2) 
INC HL 
INC HL 
INC HL 
INC HL 
LD C,(HL) 
LD HL,+162D 
CALL 16DC,INDEXER 
RET NC 
LD D,+00 
LD E,(HL) 
ADD HL,DE 

162C  CALL-JUMP JP (HL) 


THE 'CHANNEL CODE LOOK-UP' TABLE 


162D DEFB 4B 06 - channel 'K', offset +06, 
162F DEFB 53 12 - channel 'S', offset +12, 
1631 DEFB 50 1B - channel 'P', offset +1B, 
1633 DEFB 00 - end marker. 


THE 'CHANNEL 'K' FLAG' SUBROUTINE 


1634. CHAN-K SET 0,(TV-FLAG) 
RES 5,(FLAGS) 
SET 4,(FLAGS2) 
JR 1646,CHAN-S-1 


THE 'CHANNEL 'S' FLAG' SUBROUTINE 


1642 CHAN-S RES 0,(TV-FLAG) 
1646 CHAN-S-1 RES 1,(FLAGS) 
JP 0D4D,TEMPS 


THE 'CHANNEL 'P' FLAG' SUBROUTINE 


164D CHAN-P SET 


RET 


1,(FLAGS) 


THE 'MAKE-ROOM' SUBROUTINE 


The HL register pair holds the 
base address for a particular 
channel. 

Signal 'using other than channel 
'K". 

Step past the output 

and the input addresses and 
make HL point to the 

channel code. 

Fetch the code. 

The base address of the 'channel 
code look-up table’. 

Index into this table and locate 
the required offset; but return if 
there is not a matching channel 
code. 

Pass the offset to the 

DE register pair. 

Jump forward to the appropriate 
flag setting routine. 


address 1634 
address 1642 
address 164D 


Signal 'using lower screen’. 
Signal 'ready for a key’. 
Signal 'using channel 'K". 
Jump forward. 


Signal 'using main screen’. 
Signal 'printer not being used’. 
Exit via TEMPS so as to set the 
colour system variables. 


Signal ‘printer in use’. 


This is a very important subroutine. It is called on many occasions to ‘open up' an area. In all cases the HL register pair points to the 
location after the place where 'room' is required and the BC register pair holds the length of the 'room' needed. When a single space 


only is required then the subroutine is entered at ONE-SPACE. 


1652 ONE-SPACE LD BC,+0001 
1655 | MAKE-ROOM PUSH HL 
CALL 1F05,TEST-ROOM 
POP HL 
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Just the single extra location 

is required. 

Save the pointer. 

Make sure that there is sufficient 
memory available for the task 
being undertaken. 

Restore the pointer. 


CALL 1664, POINTERS 
LD HL,(STKEND) 
EX DE,HL 

LDDR 

RET 


Alter all the pointers before 
making the 'room’. 

Make HL hold the new STKEND. 
Switch 'old' and 'new’. 

Now make the 'room' 

and return. 


Note: This subroutine returns with the HL register pair pointing to the location before the new 'room' and the DE register pair pointing to 
the last of the new locations. The new 'room' therefore has the description: '(HL)+1' to '(DE)' inclusive. 

However as the 'new locations' still retain their 'old values’ it is also possible to consider the new 'room' as having been made after the 
original location '(HL)' and it thereby has the description '(HL)+2' to (DE)+1'. 

In fact the programmer appears to have a preference for the 'second description’ and this can be confusing. 


THE 'POINTERS' SUBROUTINE 


Whenever an area has to be 'made' or 'reclaimed' the system variables that address locations beyond the ‘position’ of the change have 
to be amended as required. On entry the BC register pair holds the number of bytes involved and the HL register pair addresses the 


location before the ‘position’. 


1664 POINTERS PUSH AF 
PUSH HL 
LD HL,+5C4B 
LD A,+0E 


These registers are saved. 
Copy the address of the 
‘position’. 

This is VARS, the first of the 
fourteen system pointers. 


A loop is now entered to consider each pointer in turn. Only those pointers that point beyond the ‘position’ are changed. 


166B  PTRNEXT LD E,(HL) 
INC HL 
LD D,(HL) 
EX (SP),HL 
AND A 
SBC HL,DE 
ADD HL,DE 
EX (SP),HL 
JR NC, 167F,PTR-DONE 
PUSH DE 
EX DE,HL 
ADD HL,BC 
EX DE,HL 
LD (HL),D 
DEC HL 
LD (HL),E 
INC HL 
POP DE 
167F  PTR-DONE INC HL 
DEC A 
JR NZ,166B,PTR-NEXT 


Now find the size of the block to be moved. 


EX DE,HL 
POP DE 
POP AF 
AND A 
SBC HL,DE 
LD B,H 
LD C,L 
INC BC 
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Fetch the two bytes of the 
current pointer. 


Exchange the system variable 
with the address of the ‘position’. 
The carry flag will become 

set if the system variable's 
address is to be updated. 
Restore the ‘position’. 

Jump forward if the pointer is 
to be left; otherwise change it. 
Save the old value. 

Now add the value in BC 

to the old value. 


Enter the new value into the 
system variable - high byte 
before low byte. 

Point again to the high byte. 
Fetch the old value. 

Point to the next system 
variable and jump back until all 
fourteen have been considered. 


Put the old value of STKEND in 
HL and restore the other 
registers. 

Now find the difference 
between the old value of 
STKEND and the 'position’. 
Transfer the result to BC 

and add '1' for the inclusive 
byte. 


ADD HL,DE Reform the old value of 
EX DE,HL STKEND and pass it to DE 
RET before returning. 


THE 'COLLECT A LINE NUMBER' SUBROUTINE 

On entry the HL register pair points to the location under consideration. If the location holds a value that constitutes a suitable high byte 
for a line number then the line number is returned in DE. However if this is not so then the location addressed by DE is tried instead; 
and should this also be unsuccessful line number zero is returned. 


168F LINE-ZERO DEFB +00 Line number zero. 
DEFB +00 

1691 LINE-NO-A EX DE,HL Consider the other pointer. 
LD DE,+168F Use line number zero. 


The usual entry point is at LINE-NO. 


1695 LINE-NO LD A,(HL) Fetch the high byte and 
AND +CO test it. 
JR NZ,1691,LINE-NO-A Jump back if not suitable. 
LD D,(HL) Fetch the high byte. 
INC HL 
LD E,(HL) Fetch the low byte and 
RET return. 


THE 'RESERVE' SUBROUTINE 

This subroutine is normally called by using RST 0030,BC-SPACES. 

On entry here the last value on the machine stack is WORKSP and the value above it is the number of spaces that is to be 'reserved'. 
This subroutine always makes 'room' between the existing work space and the calculator stack. 


169E RESERVE LD HL,(STKBOT) Fetch the current value of 

DEC HL STKBOT and decrement it to 
get the last location of the 
work space. 

CALL 1655, MAKE-ROOM Now make 'BC spaces’. 

INC HL Point to the first new space 

INC HL and then the second. 

POP BC Fetch the old value of 

LD (WORKSP),BC WORKSP and restore it. 

POP BC Restore BC - number of spaces. 

EX DE,HL Switch the pointers, 

INC HL Make HL point to the first of 
the displaced bytes. 

RET Now return. 


Note: It can also be considered that the subroutine returns with the DE register pair pointing to a ‘first extra byte’ and the HL register 
pair pointing to a ‘last extra byte’, these extra bytes having been added after the original '(HL)+1' location. 


THE 'SET-MIN' SUBROUTINE 


This subroutine resets the editing area and the areas after it to their minimum sizes. In effect it 'clears' the areas. 


16B0 SET-MIN LD HL,(E-LINE) Fetch E-LINE. 
LD (HL),+0D Make the editing area hold 
LD (K-CUR),HL only the ‘carriage return’ 
INC HL character and the end marker. 
LD (HL),+80 
INC HL Move on to clear the work 
LD (WORKSP),HL space. 


Entering here will ‘clear’ the work space and the calculator stack. 


16BF SET-WORK LD HL,(WORKSP) Fetch the WORKSP. 
LD (STKBOT),HL This clears the work space. 
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Entering here will ‘clear’ only the calculator stack. 


16C5 SET-STK LD HL,(STKBOT) Fetch STKBOT. 
LD (STKEND),HL This clears the stack. 


In all cases make MEM address the calculator's memory area. 


PUSH HL Save STKEND. 

LD HL,+5C92 The base of the memory area. 
LD (MEM),HL Set MEM to this address. 
POP HL Restore STKEND to the HL 
RET register pair before returning. 


THE 'RECLAIM THE EDIT-LINE' SUBROUTINE" 


16D4 REC-EDIT LD DE,(E-LINE) Fetch E-LINE. 
JP 19E5,RECLAIM-1 Reclaim the memory. 


THE 'INDEXER' SUBROUTINE 


This subroutine is used on several occasions to look through tables. The entry point is at INDEXER. 


16DB INDEXER-1 INC HL Move on to consider the next 
pair of entries. 
16DC INDEXER LD A,(HL) Fetch the first of a pair of 
AND A entries but return if it is 
RET Z zero - the end marker. 
CP Cc Compare it to the supplied 
code. 
INC HL Point to the second entry. 
JR NZ,16DB,INDEXER-1 Jump back if the correct entry 
has not been found. 
SCF The carry flag is set upon a 
RET successful search. 


THE 'CLOSE #' COMMAND ROUTINE 
This command allows the user to CLOSE streams. However for streams +00 to +03 the ‘initial’ stream data is restored and these 
streams cannot therefore be CLOSEd. 


16E5 CLOSE CALL 171E,STR-DATA The existing data for the stream 

is fetched. 

CALL 1701,CLOSE-2 Check the code in that 
stream's channel. 

LD BC,+0000 Prepare to make the stream's 
data zero. 

LD DE,+A3E2 Prepare to identify the use of 

EX DE,HL streams +00 to +03. 

ADD HL,DE The carry flag will be set with 
streams +04 to +0F. 

JR C,16FC,CLOSE-1 Jump forward with these 

LD BC,+15D4 streams; otherwise find the 

ADD HL,BC correct entry in the ‘initial 
stream data’ table. 

LD C,(HL) Fetch the initial data 

INC HL for streams +00 to +03. 

LD B,(HL) 

16FC CLOSE-1 EX DE,HL Now enter the data; either 

LD (HL),C zero & zero, or the initial 

INC HL values. 

LD (HL),B 

RET 


THE 'CLOSE-2' SUBROUTINE 


The code of the channel associated with the stream being closed has to be 'k’, 'S’, or 'P'. 


1701 CLOSE-2 PUSH HL Save the address of the 
stream's data. 
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LD HL,(CHANS) Fetch the base address of the 

ADD HL,BC channel information area and 
find the channel data for the 
stream being CLOSEd. 


INC HL Step past the subroutine 

INC HL addresses and pick up 

INC HL the code for that channel. 

LD C,(HL) 

EX DE,HL Save the pointer. 

LD HL,+1716 The base address of the 'CLOSE 
stream look-up’ table. 

CALL 16DC,INDEXER Index into this table and locate 
the required offset. 

LD C,(HL) Pass the offset to the BC 

LD B,+00 register pair. 

ADD HL,BC Jump forward to the 

JP (HL) appropriate routine. 


THE 'CLOSE STREAM LOOK-UP’ TABLE 


1716 DEFB 4B 05 - channel 'K', offset +05, address 171C 
1718 DEFB 53 03 - channel 'S', offset +03, address 171C 
171A DEFB 50 01 - channel 'P', offset +01, address 171C 


Note: There is no end marker at the end of this table. 
THE 'CLOSE STREAM' SUBROUTINE. 


171C CLOSE-STR POP HL Fetch the channel information 
RET pointer and return. 


THE 'STREAM DATA' SUBROUTINE 


This subroutine returns in the BC register pair the stream data for a given stream. 


171E STR-DATA = CALL 1E94,STK-TO-A The given stream number is 
taken off the calculator stack. 
CP +10 Give an error if the stream 
JR C,1727,STR-DATA1 number is greater than +0F. 


Report O - Invalid stream 


1725 REPORT-O RST 0008,ERROR-1 Call the error handling 
DEFB +17 routine. 


Continue with valid stream numbers. 


1727 STR-DATA1 ADD A,+03 Range now +03 to +12; 

RLCA and now +06 to +24. 

LD HL,+5C10 The base address of the 
stream data area. 

LD C,A Move the stream code to the 

LD B,+00 BC register pair. 

ADD HL,BC Index into the data area 

LD C,(HL) and fetch the two data bytes 

INC HL into the BC register pair. 

LD B,(HL) 

DEC HL Make the pointer address the 

RET first of the data bytes before 
returning. 


THE 'OPEN #' COMMAND ROUTINE 


This command allows the user to OPEN streams. A channel code must be supplied and it must be 'K’, 'k’, 'S', 's', 'P', or 'p'. 
Note that no attempt is made to give streams +00 to +03 their initial data. 


1736 OPEN RST 0028,FP-CALC Use the CALCULATOR. 
DEFB +01,exchange Exchange the stream number 
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1756 OPEN-1 


THE 'OPEN-2' SUBROUTINE 


The appropriate stream data bytes for the channel that is associated with the stream being OPENed are found. 


175D OPEN-2 


Report F - Invalid file name 


1765 REPORT-F = RST 
DEFB 


Continue if no error occurred. 
1767 OPEN-3 PUSH 


LD 
AND 


LD 
LD 


+38,end-calc 
171E,STR-DATA 
A,B 

Cc 
Z,1756,OPEN-1 
DE,HL 
HL,(CHANS) 


+4B 

Z,1756,OPEN-1 

+53 

Z,1756,OPEN-1 

+50 
NZ,1725,REPORT-O 
175D,OPEN-2 


(HL),E 
HL 
(HL),D 


HL 
2BF1,STK-FETCH 


A,B 
Cc 
NZ,1767,OPEN-3 


0008,ERROR-1 
+0E 


BC 


A,(DE) 
+DF 


C,A 
HL,+177A 


16DC,INDEXER 


NC,1765,REPORT-F 
C,(HL) 

B,+00 

HL,BC 


BC 
(HL) 


THE 'OPEN STREAM LOOK-UP' TABLE 


177A DEFB 


4B 06 
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and the channel code. 

Fetch the data for the stream. 
Jump forward if both bytes of 
the data are zero, i.e. the 
stream was in a closed state. 
Save DE. 

Fetch CHANS - the base 
address of the channel 
information and find the 

code of the channel 
associated with the stream 
being OPENed. 

Return DE. 

The code fetched from the 
channel information area 
must be 'K', 'S' or 'P'; 

give an error if it is not. 


Collect the appropriate data 
in DE. 

Enter the data into the 

two bytes in the stream 
information area. 

Finally return. 


Save HL 

Fetch the parameters of the 
channel code. 

Give an error if the 
expression supplied is a null 
expression; i.e. OPEN #5,"". 


Call the error handling 
routine. 


The length of the expression 
is saved. 

Fetch the first character. 
Convert lower case codes to 
upper case ones. 

Move code to the C register. 
The base address of the 
‘OPEN stream look-up’ table. 
Index into this table and locate 
the required offset. 

Jump back if not found. 

Pass the offset to the BC 
register pair. 

Make HL point to the start of 
the appropriate subroutine. 
Fetch the length of the 
expression before jumping to 
the subroutine. 


- channel 'K', offset +06, address 1781 


177C DEFB 53 08 - channel 'S', offset +08, address 1785 
177E DEFB 50 0A - channel 'P', offset +0A, address 1789 
1780 DEFB 00 - end marker; 

THE 'OPEN-K' SUBROUTINE 


1781 OPEN-K LD E,+01 The data bytes will be +01 
JR 178B, OPEN-END & +00. 


THE 'OPEN-S' SUBROUTINE 


1785 OPEN-S LD E,+06 The data bytes will be +06 
JR 178B, OPEN-END & +00. 


THE 'OPEN-P' SUBROUTINE 


1789 OPEN-P LD E,+10 The data bytes will be +10 
& +00. 

178B OPEN-END DEC BC Decrease the length of the 
LD A,B expression and give an error 
OR C if it was not a single 
JR NZ,1765,REPORT-F character; otherwise clear the 
LD DA D register, fetch HL and 
POP HL return. 
RET 


THE 'CAT, ERASE, FORMAT & MOVE' COMMAND ROUTINES 


In the standard SPECTRUM system the use of these commands leads to the production of report O - Invalid stream. 


1793 CAT-ETC. JR 1725,REPORT-O Give this report. 


THE 'LIST & LLIST' COMMAND ROUTINES 

The routines in this part of the 16K program are used to produce listings of the current BASIC program. Each line has to have its line 
number evaluated, its tokens expanded and the appropriate cursors positioned. 

The entry point AUTO-LIST is used by both the MAIN EXECUTION routine and the EDITOR to produce a single page of the listing. 


1795 AUTO-LIST LD (LIST-SP),SP The stack pointer is saved 
allowing the machine stack to 
be reset when the listing is 
finished. (see PO-SCR,0C55) 


LD (TV-FLAG),+10 Signal 'automatic listing in the 
main screen’. 

CALL ODAF,CL-ALL Clear this part of the screen. 

SET 0,(TV-FLAG) Switch to the editing area. 

LD B,(DF-SZ) Now clear the lower part 

CALL 0E44,CL-LINE of the screen as well. 

RES 0,(TV-FLAG) Then switch back. 

SET 0,(FLAGS2) Signal 'screen is clear’. 

LD HL,(E-PPC) Now fetch the 'current' line 

LD DE,(S-TOP) number and the 'automatic' 
line number. 

AND A If the 'current' number is 

SBC HL,DE less than the ‘automatic’ 

ADD HL,DE number then jump forward to 

JR C,17E1,AUTO-L-2 update the ‘automatic’ number. 


The ‘automatic’ number has now to be altered to give a listing with the 'current' line appearing near the bottom of the screen. 


PUSH DE Save the 'automatic' number. 
CALL 196E,LINE-ADDR Find the address of the 

LD DE,+02C0 start of the ‘current’ line 

EX DE,HL and produce an address roughly 
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SBC HL,DE 


EX (SP),HL 
CALL 196E,LINE-ADDR 
POP BC 


a ‘screen before it' (negated). 
Save the 'result' on the machine 
stack whilst the 'automatic' line 
address is also found (in HL). 
The 'result' goes to the BC 
register pair. 


A loop is now entered. The ‘automatic’ line number is increased on each pass until it is likely that the 'current' line will show on a listing. 


17CE AUTO-L-1 PUSH BC 
CALL 19B8,NEXT-ONE 
POP BC 
ADD HL,BC 
JR C,17E4,AUTO-L-3 
EX DE,HL 
LD D,(HL) 
INC HL 
LD E,(HL) 
DEC HL 
LD (S-TOP),DE 
JR 17CE,AUTO-L-1 


Now the ‘automatic’ listing can be made. 


17E1 AUTO-L-2. LD (S-TOP),HL 

17E4  AUTO-L-3. LD HL,(S-TOP) 
CALL 196E,LINE-ADDR 
JR Z,17ED,AUTO-L-4 
EX DE,HL 

17ED  AUTO-L-4— CALL 1833,LIST-ALL 
RES 4,(TV-FLAG) 


THE 'LLIST' ENTRY POINT 


The printer channel will need to be opened. 


17F5 LLIST LD A,+03 
JR 17FB,LIST-1 


THE 'LIST' ENTRY POINT 


The 'main screen’ channel will need to be opened. 


17F9 LIST LD A,+02 

17FB LIST-1 LD (TV-FLAG),+00 
CALL 2530,SYNTAX-Z 
CALL NZ,1601,CHAN-OPEN 
RST 0018,GET-CHAR 
CALL 2070,STR-ALTER 
JR C,181F,LIST-4 
RST 0018,GET-CHAR 
CP +3B 
JR Z,1814,LIST-2 
CP +2C 
JR NZ,181A,LIST-3 

1814 LIST-2 RST 0020,NEXT-CHAR 
CALL 1C82,EXPT-1NUM 
JR 1822,LIST-5 

181A LIST-3 CALL 1CE6,USE-ZERO 
JR 1822,LIST-5 


Save the 'result’. 

Find the address of the start 
of the line after the present 
‘automatic’ line (in DE). 
Restore the 'result’. 

Perform the computation and 
jump forward if finished. 
Move the next line's address 
to the HL register pair and 
collect its line number. 


Now S-TOP can be updated and 
the test repeated with the new 
line. 


When E-PPC is less than S-TOP. 
Fetch the top line's number 

and hence its address. 

If the line cannot be found 

use DE instead. 

The listing is produced. 

The return will be to here 

unless scrolling was needed to 
show the current line. 


Use stream +03. 
Jump forward. 


Use stream +02. 

Signal ‘an ordinary listing in 
the main part of the screen’. 
Open the channel unless 
checking syntax. 

With the present character in 
the A register see if the stream 
is to be changed. 

Jump forward if unchanged. 
Is the present character 
a';'? 

Jump if it is. 

Is ita',"? 

Jump if it is not. 

A numeric expression must 
follow, e.g. LIST #5,20 

Jump forward with it. 
Otherwise use zero and 

also jump forward. 


Come here if the stream was unaltered. 


181F LIST-4 CALL 1CDE,FETCH-NUM Fetch any line or use zero if 
none supplied. 

1822 LIST-5 CALL 1BEE,CHECK-END If checking the syntax of the 
edit-line move on to the next 
statement. 

CALL 1E99,FIND-INT Line number to BC. 

LD A,B High byte to A. 

AND +3F Limit the high byte to the 

LD H,A correct range and pass the 

LD L,C whole line number to HL. 

LD (E-PPC),HL Set E-PPC and find the address 
CALL 196E,LINE-ADDR of the start of this line or the 


first line after it if the actual 
line does not exist. 
1833 LIST-ALL LD E,+01 Flag 'before the current line’. 


Now the controlling loop for printing a series of lines is entered. 


1835 LIST-ALL-1 = CALL 1855,OUT-LINE Print the whole of a BASIC line. 
RST 0010,PRINT-A-1 This will be a ‘carriage return’. 
BIT 4,(TV-FLAG) Jump back unless dealing 
JR Z,1835,LIST-ALL-1 with an automatic listing. 

LD A,(DF-SZ) Also jump back if there is 

SUB (S-POSN-hi) still part of the main screen 

JR NZ,1835,LIST-ALL-1 that can be used. 

XOR E A return can be made at this 

RET Z point if the screen is full and the 
current line has been printed 
(E = +00) 

PUSH HL However if the current line is 

PUSH DE missing from the listing 

LD HL,+5C6C then S-TOP has to be updated 

CALL 190F,LN-FETCH and a further line printed 

POP DE (using scrolling). 

POP HL 

JR 1835,LIST-ALL-1 


THE 'PRINT A WHOLE BASIC LINE' SUBROUTINE 
The HL register pair points to the start of the line - the location holding the high byte of the line number. 
Before the line number is printed it is tested to determine whether it comes before the ‘current’ line, is the ‘current’ line or comes after. 


1855 OUT-LINE LD BC,(E-PPC) Fetch the ‘current’ line 

CALL 1980,CP-LINES number and compare it. 

LD D,+3E Pre-load the D register with the 
current line cursor. 

JR Z,1865,OUT-LINE1 Jump forward if printing the 
‘current line. 

LD DE,+0000 Load the D register with zero 
(it is not the cursor) and 

RL E set E to hold +071 if the line is 


before the ‘current’ line and +00 
if after. (The carry flag comes 
from CP-LINES.) 


1865 OUT-LINE1 LD (BREG),E Save the line marker. 
LD A,(HL) Fetch the high byte of the 
CP +40 line number and make a full 
POP BC return if the listing has been 
RET NC finished. 
PUSH BC 
CALL 1A28,OUT-NUM-2 The line number can now be 


printed - with leading spaces. 
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187D OUT-LINE2 SET 
1881 OUT-LINE3 PUSH 


Now enter a loop to print all the codes in the rest of the BASIC line - jumping over floating-point forms as necessary. 


1894 OUT-LINE4 LD 


18A1 OUT-LINES = CALL 


The line has now been printed. 


18B4 OUT-LINE6 POP 
RET 


THE 'NUMBER' SUBROUTINE 


If the A register holds the 'number marker’ then the HL register pair is advanced past the floating-point form. 


18B6 NUMBER CP 
RET 
INC 
INC 


0,(FLAGS) 
A.D 

A 
Z,1881,OUT-LINE3 
0010,PRINT-A-1 
0,(FLAGS) 

DE 

DE,HL 

2,(FLAGS2) 
HL,+5C3B 

2,(HL) 

5,(FLAGX) 
1894,OUT-LINE4 
2,(HL) 


HL,(X-PTR) 
A 

HL,DE 
NZ,18A1,OUT-LINES5 
A.+3F 
18C1,OUT-FLASH 
18E1,OUT-CURS 


DE,HL 

A,(HL) 
18B6,NUMBER 

HL 

+0D 
Z,18B4,OUT-LINE6 
DE,HL 


1937,OUT-CHAR 
1894,OUT-LINE4 


DE 


Move the pointer on to address 
the first command code in 

the line. 

Signal ‘leading space allowed! 
Fetch the cursor code and 
jump forward unless the 
cursor is to be printed. 

So print the cursor now. 
Signal 'no leading space now'. 
Save the registers. 

Move the pointer to DE. 
Signal 'not in quotes’. 

This is FLAGS. 

Signal 'print in K-mode’. 

Jump forward unless in 
INPUT mode. 

Signal ‘print in L-mode'. 


Fetch the syntax error 

pointer and jump forward 
unless it is time to print 

the error marker. 

Print the error marker now. 

It is a flashing '?’. 

Consider whether to print the 
cursor. 

Move the pointer to HL now. 
Fetch each character in turn. 
If the character is a 'number 
marker’ then the hidden floating- 
point form is not to be printed. 
Update the pointer for the next 
pass. 

Is the character a ‘carriage 
return’. 

Jump if it is. 

Switch the pointer to DE. 

Print the character. 

Go around the loop for at least 
one further pass. 


Restore the DE register pair 
and return. 


Is the character a 'number 
marker’. Return if not. 
Advance the pointer six 
times so as to step past the 
‘number marker’ and the five 
locations holding the 
floating-point form. 


Fetch the current code before 
returning. 


THE 'PRINT A FLASHING CHARACTER' SUBROUTINE 


The ‘error cursor’ and the 'mode cursors’ are printed using this subroutine. 


18C1 OUT-FLASH EXX Save the current register. 

LD HL,(ATTR-T) Save the ATTR-T & MASK-T on 

PUSH HL the machine stack. 

RES 7,H Ensure that FLASH is 

SET 7,L active. 

LD (ATTR-T),HL Use these modified values 
for ATTR-T & MASK-T. 

LD HL,+5C91 This is P-FLAG. 

LD D,(HL) Save P-FLAG also on the 

PUSH DE machine stack. 

LD (HL),+00 Ensure INVERSE 0, OVER 0, 
and not PAPER 9 nor INK 9. 

CALL 09F4,PRINT-OUT The character is printed. 

POP HL The former value of P-FLAG 

LD (P-FLAG),H is restored. 

POP HL The former values of ATTR-T 

LD (ATTR-T),HL & MASK-T are also restored 

EXX before returning. 

RET 


THE 'PRINT THE CURSOR' SUBROUTINE 


A return is made if it is not the correct place to print the cursor but if it is then either 'C', 'E’, 'G', 'K' or 'L' will be printed. 


18E1 OUT-CURS LD HL,(K-CUR) Fetch the address of the 
AND A cursor but return if the 
SBC HL,DE correct place is not being 
RET NZ considered. 
LD A,(MODE) The current value of MODE is 
RLC A fetched and doubled. 
JR Z,18F3,OUT-C-1 Jump forward unless dealing with 
Extended mode or Graphics. 
ADD A,+43 Add the appropriate offset to 
give 'E' or 'G'. 
JR 1909,OUT-C-2 Jump forward to print it. 
18F3 OUT-C-1 LD HL,+5C3B This is FLAGS. 
RES 3,(HL) Signal 'K-mode’. 
LD A,+4B The character 'K'. 
BIT 2,(HL) Jump forward to print 'K'. 
JR Z,1909,OUT-C-2 If 'the printing is to be in 
K-mode’. 
SET 3,(HL) The ‘printing is to be in L-mode' 
so signal 'L-MODE'. 
INC A Form the character 'L'. 
BIT 3,(FLAGS2) Jump forward if not in 
JR Z,1909, OUT-C-2 'C-mode'. 
LD A,+43 The character 'C’. 
1909 OUT-C-2 PUSH DE Save the DE register pair 
CALL 18C1,OUT-FLASH whilst the cursor is printed 
POP DE - FLASHing. 
RET Return once it has been done. 


Note: It is the action of considering which cursor-letter is to be printed that determines the mode - 'K' vs. 'L/C’. 


THE 'LN-FETCH' SUBROUTINE 
This subroutine is entered with the HL register pair addressing a system variable - S-TOP or E-PPC. 
The subroutine returns with the system variable holding the line number of the following line. 


190F LN-FETCH LD E,(HL) The line number held by the 
INC HL system variable is collected. 
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PUSH HL The pointer is saved. 

EX DE,HL The line number is moved to the 
INC HL HL register pair and incremented. 
CALL 196E,LINE-ADDR The address of the start of this 


line is found, or the next line 
if the actual line number is not 


being used. 

CALL 1695,LINE-NO The number of that line is 
fetched. 

POP HL The pointer to the system 


variable is restored. 


The entry point LN-STORE is used by the EDITOR. 


191C LN-STORE _ BIT 5,(FLAGX) Return if in 'INPUT mode’; 
RET NZ otherwise proceed to 
LD (HL),D enter the line number into 
DEC HL the two locations of the 
LD (HL),E system variable. 
RET Return when it has been done. 


THE 'PRINTING CHARACTERS IN A BASIC LINE' SUBROUTINE 
All of the character/token codes in a BASIC line are printed by repeatedly calling this subroutine. 
The entry point OUT-SP-NO is used when printing line numbers which may require leading spaces. 


1925 OUT-SP-2 LD A,E The A register will hold +20 for 
a space or +FF for no-space. 
AND A Test the value and return if 
RET M there is not to be a space. 
JR 1937,0UT-CHAR Jump forward to print a space 
192A OUT-SP-NO XOR A Clear the A register. 


The HL register pair holds the line number and the BC register the value for 'repeated subtraction’. (BC holds '-1000, -100 or -10'.) 


192B OUT-SP-1 ADD HL,BC The 'trial subtraction’. 

INC A Count each ‘trial’. 

JR C,192B,OUT-SP-1 Jump back until exhausted. 

SBC HL,BC Restore last 'subtraction' 

DEC A and discount it. 

JR Z,1925,OUT-SP-2 If no 'subtractions' were possible 
jump back to see if a space is to 
be printed. 

JP 15EF,OUT-CODE Otherwise print the digit. 


The entry point OUT-CHAR is used for all characters, tokens and control characters. 


1937 OUT-CHAR CALL 2D1B,NUMERIC Return carry reset if handling a 


digit code. 


JR NC,196C,OUT-CH-3 Jump forward to print the digit. 
CP +21 Also print the control 

JR C,196C,OUT-CH-3 characters and 'space'. 

RES 2,(FLAGS) Signal 'print in K-mode’. 

CP +CB Jump forward if dealing 

JR Z,196C,OUT-CH-3 with the token 'THEN'. 

CP +3A Jump forward unless dealing 
JR NZ,195A,OUT-CH-1 with ':'. 

BIT 5,(FLAGX) Jump forward to print the 

JR NZ,1968,OUT-CH-2 '" if in INPUT mode’. 

BIT 2,(FLAGS2) Jump forward if the ':' 

JR Z,196C,OUT-CH-3 is 'not in quotes’, i.e. 


1968, OUT-CH-2 
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an inter-statement marker. 
The ':' is inside quotes and can 


now be printed. 


195A OUT-CH-1_ CP +22 
JR NZ,1968,OUT-CH-2 
PUSH AF 
LD A,(FLAGS2) 
XOR +04 
LD (FLAGS2),A 
POP AF 

1968  OUT-CH-2 SET 2,(FLAGS) 

196C  OUT-CH-3. RST 0010,PRINT-A-1 


Accept for printing all 
characters except "". 

Save the character code whilst 
changing the 'quote mode’. 
Fetch FLAGS2 and flip 

bit 2. 

Enter the amended value and 
restore the character code. 
Signal 'the next character is 
to be printed in L-mode'. 

The present character is 
printed before returning. 


Note: It is the consequence of the tests on the present character that determines whether the next character is to be "printed in 'K' or 'L' 


mode". 


Also note how the program does not cater for ':' in REM statements. 


THE 'LINE-ADDR' SUBROUTINE 


For a given line number, in the HL register pair, this subroutine returns the starting address of that line or the ‘first line after’, in the HL 
register pair, and the start of the previous line in the DE register pair. 
If the line number is being used the zero flag will be set. However if the ‘first line after’ is substituted then the zero flag is returned reset. 


Save the given line number. 
Fetch the system variable 
PROG and transfer the address 
to the DE register pair. 


Now enter a loop to test the line number of each line of the program against the given line number until the line number is matched or 


196E LINE-ADDR PUSH HL 
LD HL,(PROG) 
LD D,H 
LD E,L 
exceeded. 
1974 LINE-AD-1 POP BC 
CALL 1980,CP-LINES 
RET NC 
PUSH BC 
CALL 19B8,NEXT-ONE 
EX DE,HL 
JR 1974,LINE-AD-1 


THE 'COMPARE LINE NUMBERS' SUBROUTINE 


The given line number. 
Compare the given line number 
against the addressed line 
number. Return if carry reset; 
otherwise address the next 
line's number. 

Switch the pointers and 

jump back to consider the next 
line of the program. 


The given line number in the BC register pair is matched against the addressed line number. 


1980 CP-LINES LD A,(HL) 
cP B 
RET NZ 
INC HL 
LD A,(HL) 
DEC HL 
cP Cc 
RET 


THE 'FIND EACH STATEMENT' SUBROUTINE 


This subroutine has two distinct functions. 


Fetch the high byte of the 
addressed line number and 
compare it. Return if they do 
not match. 

Next compare the low bytes. 
Return with the carry flag 

set if the addressed line 
number has yet to reach the 
given line number. 


I. It can be used to find the 'D'th. statement in a BASIC line - returning with the HL register pair addressing the location before the 


start of the statement and the zero flag set. 


Il. Also the subroutine can be used to find a statement, if any, that starts with a given token code (in the E register). 
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1988 INC HL Not used. 


INC HL 
INC HL 

198B EACH-STMT LD (CH-ADD),HL Set CH-ADD to the current byte. 
LD C,+00 Set a 'quotes off" flag. 


Enter a loop to handle each statement in the BASIC line. 


1990 EACH-S-1 DEC D Decrease 'D' and return if 

RET Z the required statement has 
been found. 

RST 0020,NEXT-CHAR Fetch the next character code 
CP E and jump if it does not match 
JR NZ,199A,EACH-S-3 the given token code. 
AND A But should it match then 
RET return with the carry and the 


zero flags both reset. 


Now enter another loop to consider the individual characters in the line to find where the statement ends. 


1998 EACH-S-2 INC HL Update the pointer and fetch 
LD A,(HL) the new code. 
199A EACH-S-3 CALL 18B6,NUMBER Step over any number. 
LD (CH-ADD),HL Update CH-ADD. 
CP +22 Jump forward if the character 
JR NZ,19A5,EACH-S-4 isnota"". 
DEC C Otherwise set the 'quotes flag’. 
19A5 EACH-S-4 CP +3A Jump forward if the character 
JR Z,19AD,EACH-S-5 isa’. 
CP +CB Jump forward unless the code 
JR NZ,19B1,EACH-S-6 is the token 'THEN'. 
19AD EACH-S-5 BIT 0,C Read the ‘quotes flag’ and 
JR Z,1990,EACH-S-1 jump back at the end of each 
statement (including after 
'THEN’). 
19B1 EACH-S-6 CP +0D Jump back unless at the end 
JR NZ,1998,EACH-S-2 of a BASIC line. 
DEC D Decrease the statement 
SCF counter and set the carry 
RET flag before returning. 


THE 'NEXT-ONE' SUBROUTINE 
This subroutine can be used to find the 'next line’ in the program area or the 'next variable’ in the variables area. The subroutine caters 
for the six different types of variable that are used in the SPECTRUM system. 


19B8 NEXT-ONE PUSH HL Save the address of the 
current line or variable. 
LD A,(HL) Fetch the first byte. 
CP +40 Jump forward if searching 
JR C,19D5,NEXT-O-3 for a 'next line’. 
BIT 5,A Jump forward if searching for 
JR Z,19D6,NEXT-O-4 the next string or array variable. 
ADD A,A Jump forward with simple 
JP M,19C7,NEXT-O-1 numeric and FOR-NEXT 
variables. 
CCF Long name numeric variables 
only. 
19C7 NEXT-O-1 LD BC,+0005 A numeric variable will 
JR NC,19CE,NEXT-O-2 occupy five locations but a 
LD C,+12 FOR-NEXT control variable 
will need eighteen locations. 
19CE NEXT-O-2 RLA The carry flag becomes reset 


for long named variables only; 
until the final character of the 
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long name is reached. 


INC HL Increment the pointer and 
LD A,(HL) fetch the new code. 
JR NC,19CE,NEXT-O-2 Jump back unless the previous 


code was the last code of the 
variable's name. 


JR 19DB,NEXT-O-5 Now jump forward (BC = 
+0005 or +0012). 
19D5 NEXT-O-3 INC HL Step past the low byte of the 
line number. 
19D6 NEXT-O-4 INC HL Now point to the low byte 
of the length. 
LD C,(HL) Fetch the length into the 
INC HL BC register pair. 
LD B,(HL) 
INC HL Allow for the inclusive byte. 


In all cases the address of the 'next' line or variable is found. 


19DB NEXT-O-5 ADD HL,BC Point to the first byte of the 
‘next line or variable. 
POP DE Fetch the address of the 


previous one and continue into 
the ‘difference’ subroutine. 


THE 'DIFFERENCE' SUBROUTINE 


The ‘length’ between two 'starts' is formed in the BC register pair. The pointers are reformed but returned exchanged. 


19DD DIFFER AND A Prepare for a true subtraction. 
SBC HL,DE Find the length from one 
LD B,H ‘start’ to the next and pass 
LD C,L it to the BC register pair. 
ADD HL,DE Reform the address and 
EX DE,HL exchange them before 
RET returning. 


THE 'RECLAIMING' SUBROUTINE 

The entry point RECLAIM-1 is used when the address of the first location to be reclaimed is in the DE register pair and the address of 
the first location to be left alone is in the HL register pair. The entry point RECLAIM-2 is used when the HL register pair points to the 
first location to be reclaimed and the BC register pair holds the number of the bytes that are to be reclaimed. 


19E5 RECLAIM-1 CALL 19DD,DIFFER Use the ‘difference’ subroutine 
to develop the appropriate 
values. 
19E8 RECLAIM-2 PUSH BC Save the number of bytes to be 

reclaimed. 

LD A,B All the system variable 

CPL pointers above the area 

LD B,A have to be reduced by 'BC' 

LD A,C so this number is 2's 

CPL complemented before the 

LD CA pointers are altered. 

INC BC 

CALL 1664, POINTERS 

EX DE,HL Return the ‘first location’ 

POP HL address to the DE register 

ADD HL,DE pair and reform the address of 
the first location to the left. 

PUSH DE Save the ‘first location’ 

LDIR whilst the actual reclamation 

POP HL occurs. 

RET Now return. 
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THE 'E-LINE-NO' SUBROUTINE 


This subroutine is used to read the line number of the line in the editing area. If there is no line number, i.e. a direct BASIC line, then 


the line number is considered to be zero. 
In all cases the line number is returned in the BC register pair. 


19FB 


1A15 


E-LINE-NO- LD 


E-L-1 JP 


HL,(E-LINE) 
HL 

(CH-ADD),HL 
0020,NEXT-CHAR 
HL,+5C92 
(STKEND),HL 
2D3B,INT-TO-FP 


2DA2,FP-TO-BC 
C,1A15,E-L-1 


HL,+D8FO 

HL,BC 
C,1C8A,REPORT-C 
16C5,SET-STK 


Pick up the pointer to the 
edit-line. 

Set the CH-ADD to point to the 
location before any number. 
Pass the first code to the A 
register. 

However before considering 
the code make the calculator's 
memory area a temporary 
calculator stack area. 

Now read the digits of the line 
number. Return zero if no 
number exists. 

Compress the line number into 
the BC register pair. 

Jump forward if the number 
exceeds '65,536'. 

Otherwise test it against 
10,000’. 

Give report C if over '9,999'. 
Return via SET-STK that 
restores the calculator stack to 
its rightful place. 


THE 'REPORT AND LINE NUMBER PRINTING' SUBROUTINE 


The entry point OUT-NUM-1 will lead to the number in the BC register pair being printed. Any value over '9,999' will not however be 


printed correctly. 


The entry point OUT-NUM-2 will lead to the number indirectly addressed by the HL register pair being printed. This time any necessary 


leading spaces will appear. Again the limit of correctly printed numbers is '9,999". 


1A1B 


1A28 


Now the integer form of the number in the HL register pair is printed. 


1A30 


OUT-NUM-1 PUSH 
PUSH 


OUT-NUM-2 PUSH 


OUT-NUM-3 LD 


DE 
HL 
A 

7,B 


NZ,1A42,OUT-NUM-4 


1A30,OUT-NUM-3 


DE 
D,(HL) 
HL 
E,(HL) 
HL 
DE,HL 
E,+20 


BC,+FC18 
192A,OUT-SP-NO 
BC,+FF9C 
192A,OUT-SP-NO 
C,+F6 
192A,OUT-SP-NO 
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Save the other registers 
throughout the subroutine. 
Clear the A register. 

Jump forward to print a zero 
rather than '-2' when 
reporting on the edit-line. 
Move the number to the 
HL register pair. 

Flag 'no leading spaces'. 
Jump forward to print the 
number. 

Save the DE register pair. 
Fetch the number into the 
DE register pair and save 
the pointer (updated). 


Move the number to the HL 
register pair and flag ‘leading 
space are to be printed’. 


This is '-1,000'. 

Print a first digit. 

This is '-100'. 

Print the second digit. 
This is '-10'. 

Print the third digit. 


1A42 


OUT-NUM-4 


LD 


CALL 
POP 
POP 
RET 


AJL 


15EF,OUT-CODE 
HL 
DE 
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Move any remaining part of 
the number to the A register. 
Print the digit. 

Restore the registers 

before returning. 


BASIC LINE AND COMMAND INTERPRETATION 


THE SYNTAX TABLES 


i. The offset table 
There is an offset value for each of the fifty BASIC commands. 


command address command address 
1A48 DEFB +B1 DEFFN 1AF9 1A61 DEFB +94 BORDER 1AF5 
1A49 DEFB +CB- CAT 1B14 1A62 DEFB +56 CONTINUE 1AB8 
1A4A DEFB +BC FORMAT 1B06 1A63 DEFB +3F DIM 1AA2 
1A4B DEFB +BF MOVE 1BOA 1A64 DEFB +41 REM 1AA5 
1A4C DEFB +C4 ERASE 1B10 1A65 DEFB +2B FOR 1A90 
1A4D DEFB +AF OPEN# 1AFC 1A66 DEFB +17 GOTO 1A7D 
1A4E DEFB +B4 CLOSE# 1B02 1A67 DEFB +1F GOSUB 1A86 
1A4F DEFB +93 MERGE 1AE2 1A68 DEFB +37 INPUT 1A9F 
1A50 DEFB +91 VERIFY 1AE1 1A69 DEFB +77 LOAD 1AE0O 
1A51 DEFB +92 BEEP 1AE3 1A6A DEFB +44 LIST 1AAE 
1A52 DEFB +95 CIRCLE 1AE7 1A6B DEFB +0F LET 1A7A 
1A53 DEFB +98 INK 1AEB 1A6C DEFB +59 PAUSE 1AC5 
1A54 DEFB +98 PAPER 1AEC 1A6D DEFB +2B- NEXT 1A98 
1A55 DEFB +98 FLASH 1AED 1A6E DEFB +43 POKE 1AB1 
1A56 DEFB +98 BRIGHT 1AEE 1A6F DEFB +2D_ PRINT 1A9C 
1A57 DEFB +98 INVERSE 1AEF 1A70 DEFB +51 PLOT 1AC1 
1A58 DEFB +98 OVER 1AFO 1A71. DEFB +3A RUN 1AAB 
1A59 DEFB +98 OUT 1AF1 1A72 DEFB +6D SAVE 1 ADF 
1A5A DEFB +7F — LPRINT 1AD9 1A73. DEFB +42 RANDOMIZE 1AB5 
1A5B DEFB +81 LLIST 1ADC 1A74  DEFB +0D_ IF 1A81 
1A5C DEFB +2E STOP 1A8A 1A75 DEFB +49 CLS 1ABE 
1A5D DEFB +6C READ 1AC9 1A76 DEFB +5C DRAW 1AD2 
1A5E DEFB +6E DATA 1ACC 1A77 DEFB +44 CLEAR 1ABB 
1A5F DEFB +70 RESTORE 1ACF 1A78 DEFB +15 RETURN 1A8D 
1A60 DEFB +48 NEW 1AA8 1A79 DEFB +5D COPY 1AD6 


ii. The parameter table 
For each of the fifty BASIC commands there are up to eight entries in the parameter table. These entries comprise command class 
details, required separators and, where appropriate, command routine addresses. 


1A7TA P-LET DEFB +01 CLASS-01 
DEFB +3D ‘= 
DEFB +02 CLASS-02 
1A7D P-GO-TO DEFB +06 CLASS-06 
DEFB +00 CLASS-00 
DEFB +67,+1E GO-TO,1E67 
1A81 P-IF DEFB +06 CLASS-06 
DEFB +CB ‘THEN' 
DEFB +05 CLASS-05 
DEFB +F0,+1C IF,1CFO 
1A86 P-GO-SUB DEFB +06 CLASS-06 
DEFB +00 CLASS-00 
DEFB +ED,+1E GO-SUB,1EED 
1A8A P-STOP DEFB +00 CLASS-00 
DEFB +EE,+1C STOP, 1CEE 
1A8D P-RETURN DEFB +00 CLASS-00 
DEFB +23,+1F RETURN, 1F23 
1A90 P-FOR DEFB +04 CLASS-04 
DEFB +3D ‘= 
DEFB +06 CLASS-06 
DEFB +CC 'TO' 
DEFB +06 CLASS-06 
DEFB +05 CLASS-05 
DEFB +03,+1D FOR,1D03 
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1A98 


1A9C 


1A9F 


1AA2 


1AA5 


1AA8 


1AAB 


1AAE 


1AB1 


1AB5 


1AB8 


1ABB 


1ABE 


1AC1 


1AC5 


1AC9 


1ACC 


1ACF 


1AD2 


1AD6 


1AD9 


1ADC 


1ADF 
1AE0 
1AE1 

1AE2 
1AE3 


1AE7 


1AEB 
1AEC 
1AED 
1AEE 


P-NEXT 


P-PRINT 


P-INPUT 


P-DIM 


P-REM 


P-NEW 


P-RUN 


P-LIST 


P-POKE 


P-RANDOM 


P-CONT 


P-CLEAR 


P-CLS 


P-PLOT 


P-PAUSE 


P-READ 


P-DATA 


P-RESTORE 


P-DRAW 


P-COPY 


P-LPRINT 


P-LLIST 


P-SAVE 
P-LOAD 
P-VERIFY 
P-MERGE 
P-BEEP 


P-CIRCLE 


P-INK 
P-PAPER 
P-FLASH 
P-BRIGHT 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


+04 

+00 
+AB,+1D 
+05 
+CD,+1F 
+05 
+89,+20 
+05 
+02,+2C 
+05 
+B2,+1B 
+00 
+B7,+11 
+03 
+A1,4+1E 
+05 
+F9,+17 
+08 

+00 
+80,41E 
+03 
+4F,+1E 
+00 
+5F,+1E 
+03 
+AC,+1E 
+00 
+6B,+0D 
+09 

+00 
+DC,+22 
+06 

+00 
+3A,41F 
+05 
+ED,+1D 
+05 
+27,41E 
+03 
+42,41E 
+09 

+05 
+82,+23 
+00 
+AC+0E 
+05 
+C9,4+1F 
+05 
+F5,+17 
+0B 

+0B 

+0B 

+0B 

+08 

+00 
+F8,+03 
+09 

+05 
+20,+23 
+07 

+07 

+07 

+07 


CLASS-04 
CLASS-00 
NEXT,1DAB 
CLASS-05 
PRINT,1FCD 
CLASS-05 
INPUT,2089 
CLASS-05 
DIM,2C02 
CLASS-05 
REM,1BB2 
CLASS-00 
NEW,11B7 
CLASS-03 
RUN,1EA‘1 
CLASS-05 
LIST,17F9 
CLASS-08 
CLASS-00 
POKE,1E80 
CLASS-03 


RANDOMIZE, 1E4F 


CLASS-00 


CONTINUE, 1E5F 


CLASS-03 
CLEAR, 1EAC 
CLASS-00 
CLS,0OD6B 
CLASS-09 
CLASS-00 
PLOT,22DC 
CLASS-06 
CLASS-00 
PAUSE, 1F3A 
CLASS-05 
READ,1DED 
CLASS-05 
DATA, 1E27 
CLASS-03 


RESTORE, 1E42 


CLASS-09 
CLASS-05 
DRAW ,2382 
CLASS-00 
COPY ,O0EAC 
CLASS-05 
LPRINT,1FC9 
CLASS-05 
LLIST,17F5 
CLASS-0B 
CLASS-0B 
CLASS-0B 
CLASS-0B 
CLASS-08 
CLASS-00 
BEEP,03F8 
CLASS-09 
CLASS-05 
CIRCLE,2320 
CLASS-07 
CLASS-07 
CLASS-07 
CLASS-07 
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1AEF P-INVERSE DEFB +07 CLASS-07 


1AFO P-OVER DEFB +07 CLASS-07 
1AF 1 P-OUT DEFB +08 CLASS-08 
DEFB +00 CLASS-00 
DEFB +7A,+1E OUT,1E7A 
1AF5 P-BORDER DEFB +06 CLASS-06 
DEFB +00 CLASS-00 
DEFB +94,+22 BORDER,2294 
1AF9 P-DEF-FN DEFB +05 CLASS-05 
DEFB +60,+1F DEF-FN,1F60 
1AFC P-OPEN DEFB +06 CLASS-06 
DEFB +2C 
DEFB +0A CLASS-0A 
DEFB +00 CLASS-00 
DEFB +36,+17 OPEN,1736 
1B02 P-CLOSE DEFB +06 CLASS-06 
DEFB +00 CLASS-00 
DEFB +E5,+16 CLOSE, 16E5 
1B06 P-FORMAT DEFB +0A CLASS-0A 
DEFB +00 CLASS-00 
DEFB +93,+17 CAT-ETC,1793 
1BOA P-MOVE DEFB +0A CLASS-0A 
DEFB +2C a 
DEFB +0A CLASS-0A 
DEFB +00 CLASS-00 
DEFB +93,+17 CAT-ETC,1793 
1B10 P-ERASE DEFB +0A CLASS-0A 
DEFB +00 CLASS-00 
DEFB +93,+17 CAT-ETC,1793 
1B14 P-CAT DEFB +00 CLASS-00 
DEFB +93,+17 CAT-ETC,1793 


Note: The requirements for the different command classes are as follows: 


CLASS-00 - No further operands. 

CLASS-01 - Used in LET. A variable is required. 

CLASS-02 - Used in LET. An expression, numeric or string, must follow. 
CLASS-03 - A numeric expression may follow. Zero to be used in case of default. 
CLASS-04 - A single character variable must follow. 

CLASS-05 - Asetof items may be given. 

CLASS-06 - A numeric expression must follow. 

CLASS-07 - Handles colour items. 

CLASS-08 - Two numeric expressions, separated by a comma, must follow. 
CLASS-09 - As for CLASS-08 but colour items may precede the expressions. 
CLASS-0A - A string expression must follow. 

CLASS-0B - Handles cassette routines. 


THE 'MAIN PARSER’ OF THE BASIC INTERPRETER 
The parsing routine of the BASIC interpreter is entered at LINE-SCAN when syntax is being checked, and at LINE-RUN when a BASIC 
program of one or more statements is to be executed. 


Each statement is considered in turn and the system variable CH-ADD is used to point to each code of the statement as it occurs in the 
program area or the editing area. 


1B17 LINE-SCAN RES 7,(FLAGS) Signal 'syntax checking’. 

CALL 19FB,E-LINE-NO CH-ADD is made to point to the 
first code after any line number. 

XOR A The system variable SUBPPC 

LD (SUBPPC),A is initialised to +00 and 

DEC A ERR-NR to +FF. 

LD (ERR-NR),A 

JR 1B29,STMT-L-1 Jump forward to consider the 


first statement of the line. 
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THE STATEMENT LOOP. 


Each statement is considered in turn until the end of the line is reached. 


1B28 
1B29 


STMT-LOOP RST 
STMT-L-1 CALL 
INC 


0020,NEXT-CHAR 
16BF,SET-WORK 
(SUBPPC) 


M,1C8A,REPORT-C 


0018,GET-CHAR 
B,+00 

+0D 
Z,1BB3,LINE-END 
+3A 
Z,1B28,STMT-LOOP 


Advance CH-ADD along the line. 
The work space is cleared. 
Increase SUBPPC on each 
passage around the loop. 
But only '127' statements are 
allowed in a single line. 
Fetch a character. 

Clear the register for later. 

Is the character a ‘carriage 
return’; jump if it is. 

Go around the loop again if 
itisa’:. 


A statement has been identified so, first, its initial command is considered. 


JR 


HL,+1B76 
HL 


CiA 
0020,NEXT-CHAR 
A,C 

+CE 
C,1C8A,REPORT-C 
C,A 


HL,+1A48 


1B55,GET-PARAM 


Pre-load the machine stack 
with the return address 

- STMT-RET. 

Save the command temporarily 
in the C register whilst 
CH-ADD is advanced again. 
Reduce the command's code by 
+CE; giving the range +00 to 
+31 for the fifty commands. 
Give the appropriate error if 

not a command code. 

Move the command code to the 
BC register pair (B holds +00). 
The base address of the syntax 
offset table. 

The required offset is passed to 
the C register and used to 
compute the base address for 
the command's entries in the 
parameter table. 

Jump forward into the scanning 
loop with this address. 


Each of the command class routines applicable to the present command are executed in turn. Any required separators are also 


considered. 


1B52 SCAN-LOOP LD 


1B55 GET-PARAM LD 


INC 


HL,(T-ADDR) 


A,(HL) 
HL 
(T-ADDR),HL 
BC,+1B52 
BC 


C,A 


+20 
NC,1B6F,SEPARATOR 
HL,+1C01 


B,+00 
HL,BC 
C,(HL) 
HL,BC 


HL 
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The temporary pointer to the 
entries in the parameter table. 
Fetch each entry in turn. 
Update the pointer to the 
entries for the next pass. 
Pre-load the machine stack 
with the return address - 
SCAN-LOOP. 

Copy the entry to the C register 
for later. 

Jump forward if the entry is 

a ‘separator’. 

The base address of the 
‘command class' table. 

Clear the B register and 

index into the table. 

Fetch the offset and compute 
the starting address of the 
required command class routine 
Push the address on to the 
machine stack. 


RST 0018,GET-CHAR 
DEC B 
RET 


THE 'SEPARATOR' SUBROUTINE 


Before making an indirect 

jump to the command class 
routine pass the command code 
to the A register and set the B 
register to +FF. 


The report - 'Nonsense in BASIC is given if the required separator is not present. But note that when syntax is being checked the actual 


report does not appear on the screen - only the ‘error marker’. 


1B6F SEPARATOR RST 0018,GET-CHAR 
cP Cc 
JP NZ,1C8A,REPORT-C 
RST 0020,NEXT-CHAR 
RET 


THE 'STMT-RET' SUBROUTINE 


The current character is 
fetched and compared to the 
entry in the parameter table. 
Give the error report if there 
is not a match. 

Step past a correct character 
and return. 


After the correct interpretation of a statement a return is made to this entry point. 


1B76 STMT-RET = CALL 1F54,BREAK-KEY 


JR C,1B7D,STMT-R-1 


Report L - 'BREAK into program' 


1B7B REPORT-L = RST 


DEFB 


0008,ERROR-1 
+14 


Continue here as the BREAK key was not pressed. 


1B7D STMT-R-1 BIT 7,(NSPPC) 
JR NZ,1BF4,STMT-NEXT 
LD HL,(NEWPPC) 


BIT 7H 
Z,1B9E,LINE-NEW 


THE 'LINE-RUN' ENTRY POINT 


The BREAK key is tested after 
every statement. 

Jump forward unless it has 
been pressed. 


Call the error handling 
routine. 


Jump forward if there is not 

a ‘jump’ to be made. 

Fetch the 'new line’ number 

and jump forward unless dealing 
with a further statement in the 
editing area. 


This entry point is used wherever a line in the editing area is to be 'run'. In such a case the syntax/run flag (bit 7 of FLAGS) will be set. 


The entry point is also used in the syntax checking of a line in the editing area that has more than one statement (bit 7 of FLAGS will be 


reset). 
1B8A LINE-RUN LD HL,+FFFE 
LD (PPC),HL 
LD HL,(WORKSP) 
DEC HL 
LD DE,(E-LINE) 
DEC DE 
LD A,(NSPPC) 
JR 1BD1,NEXT-LINE 


THE 'LINE-NEW' SUBROUTINE 


A line in the editing area 

is considered as line '-2’. 
Make HL point to the end 
marker of the editing area 
and DE to the location before 
the start of that area. 

Fetch the number of the next 
statement to be handled 
before jumping forward. 


There has been a jump in the program and the starting address of the new line has to be found. 


1B9E LINE-NEW CALL 196E,LINE-ADDR 
LD A,(NSPPC) 
JR Z,1BBF,LINE-USE 
AND A 
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The starting address of the line, 
or the ‘first line after’ is found. 
Collect the statement number. 
Jump forward if the required 
line was found; otherwise 


JR NZ,i1BEC,REPORT-N check the validity of the state- 
ment number - must be zero. 


LD BA Also check that the ‘first 
LD A,(HL) line after’ is not after the 
AND +C0 actual 'end of program’. 
LD A,B 
JR Z,1BBF,LINE-USE Jump forward with valid 
addresses; otherwise signal the 
error ‘OK’. 
Report 0 - 'OK' 
1BBO REPORT-O RST 0008,ERROR-1 Use the error handling 
DEFB +FF routine. 


Note: Obviously not an error in the normal sense — but rather a jump past the program. 


THE 'REM' COMMAND ROUTINE 
The return address to STMT-RET is dropped which has the effect of forcing the rest of the line to be ignored. 


1BB2 REM POP BC Drop the address - STMT-RET. 


THE 'LINE-END' ROUTINE 


If checking syntax a simple return is made but when 'running' the address held by NXTLIN has to be checked before it can be used. 


1BB3 LINE-END CALL 2530,SYNTAX-Z Return if syntax is being 
RET Z checked; otherwise fetch 
LD HL,(NXTLIN) the address in NXTLIN. 
LD A,+CO Return also if the address is 
AND (HL) after the end of the program 
RET NZ - the 'run' is finished. 
XOR A Signal 'statement zero' before 

proceeding. 


THE 'LINE-USE' ROUTINE 
This short routine has three functions; i. Change statement zero to statement '1'; ii. Find the number of the new line and enter it into 
PPC; & iii. Form the address of the start of the line after. 


1BBF LINE-USE CP +01 Statement zero becomes 
ADC A,+00 statement '1' 
LD D,(HL) The line number of the line 
INC HL to be used is collected and 
LD E,(HL) passed to PPC. 
LD (PPC),DE 
INC HL Now find the ‘length’ 
LD E,(HL) of the line. 
INC HL 
LD D,(HL) 
EX DE,HL Switch over the values. 
ADD HL,DE Form the address of the start 
INC HL of the line after in HL and the 


location before the 'next' line's 
first character in DE. 


THE 'NEXT-LINE' ROUTINE 

On entry the HL register pair points to the location after the end of the 'next' line to be handled and the DE register pair to the location 
before the first character of the line. This applies to lines in the program area and also to a line in the editing area - where the next line 
will be the same line again whilst there are still statements to be interpreted. 


1BD1 NEXT-LINE LD (NXTLIN),HL Set NXTLIN for use once the 
current line has been completed. 
EX DE,HL As usual CH-ADD points to the 
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LD (CH-ADD),HL location before the first 
character to be considered. 

LD DA The statement number is 
fetched. 

LD E,+00 The E register is cleared in case 
EACH-STMT is used. 

LD (NSPPC),+FF Signal 'no jump". 

DEC D The statement number minus 

LD (SUBPPC),D one goes into SUBPPC. 

JP Z,1B28,STMT-LOOP A first statement can now be 
considered. 

INC D However for later statements 

CALL 198B,EACH-STMT the 'starting address' has to be 
found. 

JR Z,1BF4,STMT-NEXT Jump forward unless the state- 


ment does not exist. 
Report N - 'Statement lost’ 


1BEC REPORT-N = RST 0008,ERROR-1 


DEFB +16 


Call the error handling 
routine. 


THE 'CHECK-END' SUBROUTINE 

This is an important routine and is called from many places in the monitor program when the syntax of the edit-line is being checked. 
The purpose of the routine is to give an error report if the end of a statement has not been reached and to move on to the next 
statement if the syntax is correct. 

1BEE CHECK-END CALL 


2530,SYNTAX-Z Do not proceed unless 


RET NZ checking syntax. 
POP BC Drop the addresses of 
POP BC SCAN-LOOP & STMT-RET 


before continuing into 
STMT-NEXT. 


THE 'STMT-NEXT' ROUTINE 
If the present character is a 'carriage return’ then the 'next statement’ is on the 'next line’; if': ' it is on the same line; but if any other 
character is found then there is an error in syntax. 

1BF4 STMT-NEXT RST 


0018,GET-CHAR Fetch the present character. 


CP +0D Consider the 'next line’ if 

JR Z,1BB3,LINE-END it is a ‘carriage return’. 

CP +3A Consider the 'next statement’ 
JP Z,1B28,STMT-LOOP ifitisa':'. 

JP 1C8A,REPORT-C Otherwise there has been a 


syntax error. 


THE 'COMMAND CLASS' TABLE 


address offset class number address offset class number 

1001 OF CLASS-00-1C10 1C07 7B CLASS-06,1C82 
1002 1D CLASS-01,1C1F 1C08 8E CLASS-07,1C96 
1C03 4B CLASS-02,1C4E 1009 TA CLASS-08,1C7A 
1004 09 CLASS-03,1C0D 1C0A B4 CLASS-09,1CBE 
1005 67 CLASS-04,1C6C 1COB 81 CLASS-0A,1C8C 
1C06 0B CLASS-05,1C11 1COC CF CLASS-0B,1CDB 


THE 'COMMAND CLASSES - 00, 03 & 05' 
The commands of class-03 may, or may not, be followed by a number. e.g. RUN & RUN 200. 
1COD CLASS-03 CALL 


1CDE,FETCH-NUM A number is fetched but zero 


is used in cases of default. 
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The commands of class-00 must not have any operands. e.g. COPY & CONTINUE. 


1010 CLASS-00 CP A 


Set the zero flag for later. 


The commands of class-05 may be followed by a set of items. e.g. PRINT & PRINT "222". 


1011 CLASS-05 POP BC 
CALL Z,1BEE,CHECK-END 
EX DE,HL 


THE 'JUMP-C-R' ROUTINE 


In all cases drop the address 

- SCAN-LOOP. 

If handling commands of classes 
00 & 03 AND syntax is being 
checked move on now to 
consider the next statement. 
Save the line pointer in the DE 
register pair. 


After the command class entries and the separator entries in the parameter table have been considered the jump to the appropriate 


command routine is made. 


1C16  JUMP-C-R LD HL,(T-ADDR) 
LD C,(HL) 
INC HL 
LD B,(HL) 
EX DE,HL 
PUSH BC 


Fetch the pointer to the 
entries in the parameter table 
and fetch the address of the 
required command routine. 
Exchange the pointers back 
and make an indirect jump 

to the command routine. 


THE 'COMMAND CLASSES - 01, 02 & 04' 
These three command classes are used by the variable handling commands - LET, FOR & NEXT and indirectly by READ & INPUT. 


Command class 01 is concerned with the identification of the variable in a LET, READ or INPUT statement. 
1C1F CLASS-01 CALL 28B2,LOOK-VARS Look in the variables area to 
determine whether or not 


the variable has been used already. 


THE 'VARIABLE IN ASSIGNMENT' SUBROUTINE 
This subroutine develops the appropriate values for the system variables DEST & STRLEN. 


1022 VAR-A-1 LD (FLAGX),+00 Initialise FLAGX to +00. 
JR NC,1C30,VAR-A-2 Jump forward if the variable 
has been used before. 
SET 1,(FLAGX) Signal 'a new variable’. 
JR NZ,1C46,VAR-A-3 Give an error if trying to use 


an 'undimensioned array’. 
Report 2 - Variable not found 


1C2E REPORT-2 RST 0008,ERROR-1 Call the error handling 
DEFB +01 routine. 


Continue with the handling of existing variables. 


1030 VAR-A-2 CALL Z,2996,STK-VARS The parameters of simple string 
variables and all array variables 
are passed to the calculator 
stack. (STK-VARS will 'slice' a 
string if required.) 

BIT 6,(FLAGS) Jump forward if handling a 

JR NZ,1C46,VAR-A-3 numeric variable. 

XOR A Clear the A register. 

CALL 2530,SYNTAX-Z The parameters of the string of 

CALL NZ,2BF1,STK-FETCH string array variable are fetched 
unless syntax is being checked. 

LD HL,+5C71 This is FLAGX. 
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OR (HL) Bit 0 is set only when handling 


LD (HL),A complete ‘simple strings’ thereby 
signalling ‘old copy to be 
deleted’. 

EX DE,HL HL now points to the string or 


the element of the array. 
The pathways now come together to set STRLEN & DEST as required. For all numeric variables and 'new' string & string array 
variables STRLEN-lo holds the ‘letter’ of the variable's name. But for ‘old’ string & string array variables whether 'sliced' or complete it 
holds the ‘length’ in 'assignment’. 
1046 VAR-A-3 LD (STRLEN),BC Set STRLEN as required. 


DEST holds the address for the 'destination of an 'old' variable but in effect the 'source' for a 'new' variable. 


LD (DEST),HL Set DEST as required and 
RET return. 


Command class 02 is concerned with the actual calculation of the value to be assigned in a LET statement. 


1C4E CLASS-02 POP BC The address - SCAN-LOOP is 
dropped. 
CALL 1C56,VAL-FET-1 The assignment is made. 
CALL 1BEE,CHECK-END Move on to the next statement 
either via CHECK-END if 
RET checking syntax, or STMT-RET 
if in ‘run-time’. 


THE 'FETCH A VALUE’ SUBROUTINE 
This subroutine is used by LET, READ & INPUT statements to first evaluate and then assign values to the previously designated 
variable. 

The entry point VAL-FET-1 is used by LET & READ and considers FLAGS whereas the entry point VAL-FET-2 is used by 
INPUT and considers FLAGX. 


1056 VAL-FET-1 LD A,(FLAGS) Use FLAGS. 
1059 VAL-FET-2. PUSH AF Save FLAGS or FLAGX. 
CALL 24FB, SCANNING Evaluate the next expression. 
POP AF Fetch the old FLAGS or FLAGX. 
LD D,(FLAGS) Fetch the new FLAGS. 
XOR D The nature - numeric or string 
AND +40 of the variable and the 
expression must match. 
JR NZ,1C8A,REPORT-C Give report C if they do not. 
BIT 7,D Jump forward to make the 
JP NZ,2AFF,LET actual assignment unless 
checking syntax when simply 
RET return. 


THE 'COMMAND CLASS 04' ROUTINE 
The command class 04 entry point is used by FOR & NEXT statements. 


1C6C CLASS-04 CALL 28B2,LOOK-VARS Look in the variables area for 
the variable being used. 

PUSH AF Save the AF register pair whilst 
LD A,C the discriminator byte is tested 
OR +9F to ensure that the variable 
INC A is a FOR-NEXT control 
JR NZ,1C8A,REPORT-C variable. 
POP AF Restore the flags register and 
JR 1022,VAR-A-1 jump back to make the variable 


that has been found the 
‘variable in assignment’. 
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THE 'EXPECT NUMERIC/STRING EXPRESSIONS' SUBROUTINE 
There is a series of short subroutines that are used to fetch the result of evaluating the next expression. The result from a single 
expression is returned as a ‘last value’ on the calculator stack. 

The entry point NEXT-2NUM is used when CH-ADD needs updating to point to the start of the first expression. 


1079 NEXT-2NUM RST 0020,NEXT-CHAR Advance CH-ADD. 


The entry point EXPT-2NUM (EQU. CLASS-08) allows for two numeric expressions, separated by a comma, to be evaluated. 


1C7A  EXPT-2NUM_ CALL 
(CLASS-08) 


1C82,EXPT-1NUM 


Evaluate each expression in 
turn - so evaluate the first. 


CP +2C Give an error report if the 
JR NZ,1C8A separator is not a comma. 
RST 0020,NEXT-CHAR Advance CH-ADD. 


The entry point EXPT-1NUM (EQU. CLASS-06) allows for a single numeric expression to be evaluated. 


1C82.  EXPT-1NUM CALL 
(CLASS-06) 
BIT 
RET 


Report C - Nonsense in BASIC 


1C8A REPORT-C RST 
DEFB 


24FB,SCANNING 


6,(FLAGS) 
NZ 


0008,ERROR-1 
+0B 


Evaluate the next expression. 


Return as long as the result was 
numeric; otherwise it is an error. 


Call the error handling 
routine. 


The entry point EXPT-EXP (EQU. CLASS-0A) allows for a single string expression to be evaluated. 


1C8C EXPT-EXP = CALL 


24FB,SCANNING 


Evaluate the next expression. 


(CLASS-0A) 
BIT 6,(FLAGS) This time return if the result 
RET Z indicates a string; otherwise 
JR 1C8A,REPORT-C give an error report. 


THE 'SET PERMANENT COLOURS' SUBROUTINE (EQU. CLASS-07) 


This subroutine allows for the current temporary colours to be made permanent. As command class 07 it is in effect the command 


routine for the six colour item commands. 


1C96 PERMS BIT 7,(FLAGS) The syntax/run flag is read. 
(CLASS-07) 

RES 0,(TV-FLAG) Signal 'main screen’. 

CALL NZ,0D4D, TEMPS Only during a 'run' call TEMPS 
to ensure the temporary colours 
are the main screen colours. 

POP AF Drop the return address - 
SCAN-LOOP. 

LD A,(T-ADDR) Fetch the low byte of T-ADDR 
and subtract +13 to give the 

SUB +13 range +D9 to +DE which are the 
token codes for INK to OVER. 

CALL 21FC,CO-TEMP-4 Jump forward to change the 
temporary colours as directed 
by the BASIC statement. 

CALL 1BEE,CHECK-END Move on to the next statement 
if checking syntax. 

LD HL,(ATTR-T) Now the temporary colour 

LD (ATTR-P),HL values are made permanent 
(both ATTR-P & MASK-P). 

LD HL,+5C91 This is P-FLAG; and that too 

LD A,(HL) has to be considered. 


The following instructions cleverly copy the even bits of the supplied byte to the odd bits. In effect making the permanent bits the same 
as the temporary ones. 


RLCA Move the mask leftwards. 
XOR (HL) Impress onto the mask 
AND +AA only the even bits of the 
XOR (HL) other byte. 

LD (HL),A Restore the result. 

RET 


THE 'COMMAND CLASS 09' ROUTINE 
This routine is used by PLOT, DRAW & CIRCLE statements in order to specify the default conditions of 'FLASH 8; BRIGHT 8; PAPER 
8;' that are set up before any embedded colour items are considered. 


1CBE CLASS-09 CALL 2530,SYNTAX-Z Jump forward if 

JR Z,1CD6,CL-09-1 checking syntax. 

RES 0,(TV-FLAG) Signal 'main screen’. 

CALL 0D4D,TEMPS Set the temporary colours for 
the main screen. 

LD HL,+5C90 This is MASK-T. 

LD A,(HL) Fetch its present value but 

OR +F8 keep only its INK part 
‘unmasked. 

LD (HL),A Restore the value which now 
indicates 'FLASH 8; BRIGHT 8; 
PAPER 8;'. 

RES 6,(P-FLAG) Also ensure NOT 'PAPER &". 

RST 0018,GET-CHAR Fetch the present character 


before continuing to deal with 
embedded colour items. 


1CD6 CL-09-1 CALL 21E2,CO-TEMP Deal with the locally dominant 
colour items. 
JR 1C7A,EXPT-2NUM Now get the first two operands 


for PLOT, DRAW or CIRCLE. 


THE 'COMMAND CLASS 0OB' ROUTINE 
This routine is used by SAVE, LOAD, VERIFY & MERGE statements. 


1CDB  CLASS-0B JP 0605,SAVE-ETC Jump to the cassette 
handling routine. 


THE 'FETCH A NUMBER' SUBROUTINE 


This subroutine leads to a following numeric expression being evaluated but zero being used instead if there is no expression. 


1CDE FETCH-NUM CP +0D Jump forward if at the end 
JR Z,1CE6,USE-ZERO of a line. 
CP +3A But jump to EXPT-1NUM unless 
JR NZ,1C82,EXPT-1NUM at the end of a statement. 


The calculator is now used to add the value zero to the calculator stack. 


1CE6 USE-ZERO CALL 2530,SYNTAX-Z Do not perform the operation 
RET Z if syntax is being checked. 
RST 0028,FP-CALC Use the calculator. 
DEFB +A0,stk-zero The ‘last value’ is now zero. 
DEFB +38,end-calc 
RET Return with zero added to the 
stack. 


THE COMMAND ROUTINES 


The section of the 16K monitor program from 1CEE to 23FA contains most of the command routines of the BASIC interpreter. 
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THE 'STOP' COMMAND ROUTINE 


The command routine for STOP contains only a call to the error handling routine. 


1CEE STOP RST 0008,ERROR-1 Call the error handling 
(REPORT-9) DEFB +08 routine. 


THE 'IF' COMMAND ROUTINE 


On entry the value of the expression between the IF and the THEN is the ‘last value’ on the calculator stack. If this is logically true then 
the next statement is considered; otherwise the line is considered to have been finished. 


1CFO IF POP BC Drop the return address 
- STMT-RET. 
CALL 2530,SYNTAX-Z Jump forward if checking 
JR Z,1D00,IF-1 syntax. 


Now use the calculator to 'delete’ the last value on the calculator stack but leave the DE register pair addressing the first byte of the 
value. 


RST 0028,FP-CALC Use the calculator. 
DEFB +02,delete The present ‘last value’ is 
DEFB +38,end-calc deleted. 
EX DE,HL Make HL point to the first 
CALL 34E9, TEST-ZERO byte and call TEST-ZERO. 
JP C,1BB3,LINE-END If the value was 'FALSE' jump 
to the next line. 
1D00 IF-1 JP 1B29,STMT-L-1 But if "TRUE' jump to the next 


statement (after the THEN). 


THE 'FOR' COMMAND ROUTINE 


This command routine is entered with the VALUE and the LIMIT of the FOR statement already on the top of the calculator stack. 


1D03 FOR CP +CD Jump forward unless a 'STEP' 
JR NZ,1D10,F-USE-1 is given. 
RST 0020,NEXT-CHAR Advance CH-ADD and fetch the 
CALL 1C82,EXPT-1NUM value of the STEP. 
CALL 1BEE,CHECK-END Move on to the next statement 
JR 1D16,F-REORDER if checking syntax; otherwise 
jump forward. 


There has not been a STEP supplied so the value '1' is to be used. 


1D10 F-USE-1 CALL 1BEE,CHECK-END Move on to the next statement 
if checking syntax; otherwise 
RST 0028,FP-CALC use the calculator to place a '1' 
DEFB +A1,stk-one on the calculator stack. 
DEFB +38,end-calc 


The three values on the calculator stack are the VALUE (v), the LIMIT (I) and the STEP (s). These values now have to be manipulated. 


1D16 F-REORDER RST 0028,FP-CALC v,Ls 
DEFB +C0,st-mem-0 v, |, s (mem-0 = s) 
DEFB +02,delete v, | 
DEFB +01,exchange lv 
DEFB +E0,get-mem-0 lLv,s 
DEFB +01,exchange l,s,v 
DEFB +38,end-calc 


A FOR control variable is now established and treated as a temporary calculator memory area. 


CALL 2AFF,LET The variable is found, or created 
if needed (v is used). 
LD (MEM),HL Make it a 'memory area’. 


The variable that has been found may be a simple numeric variable using only six locations in which case it will need extending. 
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DEC HL Fetch the variable's single 


LD A,(HL) character name. 

SET 7,(HL) Ensure bit 7 of the name is set. 

LD BC,+0006 It will have six locations at least. 

ADD HL,BC Make HL point after them. 

RLCA Rotate the name and jump if 

JR C,1D34,F-L&S it was already a FOR variable. 

LD C,+0D Otherwise create thirteen 

CALL 1655,MAKE-ROOM more locations. 

INC HL Again make HL point to the 
LIMIT position. 


The initial values for the LIMIT and the STEP are now added. 


1D34 F-L&S PUSH HL The pointer is saved. 
RST 0028,FP-CALC Is 
DEFB +02,delete | 
DEFB +02,delete - 
DEFB +38,end-calc DE still points to ‘I’. 
POP HL The pointer is restored and 
EX DE,HL both pointers exchanged. 
LD C,+0A The ten bytes of the LIMIT 
LDIR and the STEP are moved. 


The looping line number and statement number are now entered. 


LD HL,(PPC) The current line number. 

EX DE,HL Exchange the registers before 
LD (HL),E adding the line number to the 
INC HL FOR control variable. 

LD (HL),D 

LD D,(SUBPPC) The looping statement is 

INC D always the next statement - 
INC HL whether it exists or not. 

LD (HL),D 


The NEXT-LOOP subroutine is called to test the possibility of a 'pass' and a return is made if one is possible; otherwise the statement 
after for FOR - NEXT loop has to be identified. 


CALL 1DDA,NEXT-LOOP ls a 'pass' possible? 

RET NC Return now if it is. 

LD B,(STRLEN-lo) Fetch the variable's name. 

LD HL,(PPC) Copy the present line number 

LD (NEWPPC),HL to NEWPPC. 

LD A,(SUBPPC) Fetch the current statement 

NEG number and two's complement it. 

LD D/A Transfer the result to the D 
register. 

LD HL,(CH-ADD) Fetch the current value of 
CH-ADD. 

LD E,+F3 The search will be for 'NEXT’. 


Now a search is made in the program area, from the present point onwards, for the first occurrence of NEXT followed by the correct 
variable. 


1D64 F-LOOP PUSH BC Save the variable's name. 
LD BC,(NXTLIN) Fetch the current value of 

NXTLIN. 
CALL 1D86,LOOK-PROG The program area is now 


searched and BC will change 
with each new line examined. 


LD (NXTLIN),BC Upon return save the pointer. 
POP BC Restore the variable's name. 
JR C,1D84,REPORT-I If there are no further NEXTs 


then give an error. 
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RST 


OR 
CP 


JR 
RST 
JR 


0020,NEXT-CHAR 


+20 
B 


Z,1D7C,F-FOUND 
0020,NEXT-CHAR 
1D64,F-LOOP 


Advance past the NEXT that 
was found. 

Allow for upper and lower 
case letters before the new 
variable name is tested. 
Jump forward if it matches. 
Advance CH-ADD again and 
jump back if not the correct 
variable. 


NEWPPC holds the line number of the line in which the correct NEXT was found. Now the statement number has to be found and 


stored in NSPPC. 


1D7C F-FOUND RST 


RET 


REPORT | - FOR without NEXT 


1D84 REPORT-| RST 
DEFB 


0020,NEXT-CHAR 
A,+01 
D 


(NSPPC),A 


0008,ERROR-1 
+11 


Advance CH-ADD. 

The statement counter in the 
D register counted statements 
back from zero so it has to 

be subtracted from '1'. 

The result is stored. 

Now return - to STMT-RET. 


Call the error handling 
routine. 


THE 'LOOK-PROG' SUBROUTINE 
This subroutine is used to find occurrences of either DATA, DEF FN or NEXT. On entry the appropriate token code is in the E register 
and the HL register pair points to the start of the search area. 


1D86 LOOK-PROG LD A,(HL) Fetch the present character. 
CP +3A Jump forward if itis a':' 
JR Z,1DA3,LOOK-P-2 which will indicate there are 


Now a loop is entered to examine each further line in the program. 


more statements in the present 
line. 


1D8B LOOK-P-1 INC HL Fetch the high byte of the 
LD A,(HL) line number and return with 
AND +CO carry set if there are no 
SCF further lines in the program. 
RET NZ 
LD B,(HL) The line number is fetched 
INC HL and passed to NEWPPC. 
LD C,(HL) 
LD (NEWPPC),BC 
INC HL Then the length is collected. 
LD C,(HL) 
INC HL 
LD B,(HL) 
PUSH HL The pointer is saved whilst 
ADD HL,BC the address of the end of the 
LD B,H line is formed in the BC 
LD C,L register pair. 
POP HL The pointer is restored. 
LD D,+00 Set the statement counter to 

zero. 

1DA3 LOOK-P-2 PUSH BC The end-of-line pointer is 
CALL 198B,EACH-STMT saved whilst the statements 
POP BC of the line are examined. 
RET NC Make a return if there was 
JR 1D8B,LOOK-P-1 an ‘occurrence’; otherwise 


consider the next line. 
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THE 'NEXT' COMMAND ROUTINE 


The ‘variable in assignment’ has already been determined (see CLASS-04,1C6C); and it remains to change the VALUE as required. 


1DAB NEXT BIT 


1,(FLAGX) 


NZ,1C2E,REPORT-2 


HL,(DEST) 
7,(HL) 


Z,1DD8,REPORT-1 


Jump to give the error report 
if the variable was not found. 
The address of the variable 
is fetched and the name 
tested further. 


Next the variable's VALUE and STEP are manipulated by the calculator. 


INC 
LD 


RST 

DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


HL 
(MEM),HL 


0028,FP-CALC 
+E0,get-mem-0 
+E2,get-mem-2 
+0F, addition 
+C0,st-mem-0 
+02,delete 
+38,end-calc 


Step past the name. 
Make the variable a 
temporary 'memory area’. 


The result of adding the VALUE and the STEP is now tested against the LIMIT by calling NEXT-LOOP. 


CALL 


RET 


Otherwise collect the ‘looping’ line number and statement. 


Report 1 - NEXT without FOR 


1DD8 REPORT-1 RST 
DEFB 


1DDA,NEXT-LOOP 


Cc 


HL,(MEM) 
DE,+000F 
HL,DE 
E,(HL) 

HL 

D,(HL) 

HL 

H,(HL) 


DE,HL 
1E73,GO-TO-2 


0008,ERROR-1 
+00 


THE 'NEXT-LOOP SUBROUTINE 


This subroutine is used to determine whether the LIMIT has been exceeded by the present VALUE. Note has to be taken of the sign of 


the STEP. 


Test the new VALUE against 
the LIMIT 

Return now if the FOR-NEXT 
loop has been completed. 


Find the address of the 
low byte of the looping 

line number. 

Now fetch this line number. 


Followed by the statement 
number. 

Exchange the numbers before 
jumping forward to treat them 
as the destination line of a 
GO TO command. 


Call the error handling 
routine. 


The subroutine returns the carry flag set if the LIMIT is exceeded. 


1DDA  NEXT-LOOP RST 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
1DE2 NEXT-1 DEFB 
DEFB 
DEFB 


0028,FP-CALC 
+E1,get-mem-1 
+E0,get-mem-0 
+E2,get-mem-2 
+36,less-0 
+00,jump-true 
+02,to NEXT-1 
+01,exchange 
+03,subtract 
+37,greater-0 
+00,jump-true 
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| 
lv 
lv, s 

I, v,(1/0) 
I, v,(1/0) 
I, v,(1/0) 
v, | 
v-l or I-v 
(1/0) 

(1/0) 


DEFB 
DEFB 
AND 
RET 


+04,to NEXT-2 
+38,end-calc 
A 


However if the loop is impossible the carry flag has to be set. 


1DE9 NEXT-2 DEFB 
SCF 
RET 


+38,end-calc 


THE 'READ' COMMAND ROUTINE 


The READ command allows for the reading of a DATA list and has an effect similar to a series of LET statements. 
Each assignment within a single READ statement is dealt with in turn. The system variable X-PTR is used as a storage 


Clear the carry flag and 
return - loop is possible. 


Set the carry flag and 
return. 


location for the pointer to the READ statement whilst CH-ADD is used to step along the DATA list. 


1DEC  READ-3 RST 


1DED READ CALL 


Report E - Out of DATA 


1E08 REPORT-E RST 
DEFB 


0020,NEXT-CHAR 


1C1F,CLASS-01 


2530,SYNTAX-Z 
Z,1E1E,READ-2 
0018,GET-CHAR 
(X-PTR),HL 
HL,(DATADD) 
A,(HL) 

+2C 
Z,1E0A,READ-1 
E,+E4 
1D86,LOOK-PROG 
NC,1E0A,READ-1 


0008,ERROR-1 
+0D 


Continue - picking up a value from the DATA list. 


1E0A READ-1 CALL 


1E1E READ-2 RST 


0077, TEMP-PTR1 
1C56,VAL-FET-1 


0018,GET-CHAR 
(DATADD),HL 


HL,(X-PTR) 
(X-PTR-hi), +00 


0078, TEMP-PTR2 
0018,GET-CHAR 
+2C 
Z,1DEC,READ-3 


1BEE,CHECK-END 


Come here on each pass, after 
the first, to move along the 
READ statement. 

Consider whether the variable 
has been used before; find 
the existing entry if it has. 
Jump forward if checking 
syntax. 

Save the current pointer 
CH-ADD in X-PTR. 

Fetch the current DATA list 
pointer and jump forward 
unless a new DATA statement 
has to be found. 

The search is for 'DATA’. 
Jump forward if the search is 
successful. 


Call the error handling 
routine. 


Advance the pointer along the 
DATA list and set CH-ADD. 
Fetch the value and assign it 
to the variable. 

Fetch the current value of 
CH-ADD and store it in 
DATADD. 

Fetch the pointer to the 

READ statement and clear 
X-PTR. 

Make CH-ADD once again point 
to the READ statement. 

GET the present character and 
see ifitisa',’. 

If it is then jump back as 

there are further items; 
otherwise return either via 
CHECK-END (if checking 
syntax) or the RET instruction 
(to STMT-RET). 


THE 'DATA' COMMAND ROUTINE 


During syntax checking a DATA statement is checked to ensure that it contains a series of valid expressions, separated by commas. 
But in ‘run-time’ the statement is passed by. 


1E27 DATA CALL 2530,SYNTAX-Z Jump forward unless checking 
JR NZ,1E37,DATA-2 syntax. 
A loop is now entered to deal with each expression in the DATA statement. 
1E2C DATA-1 CALL 24FB,SCANNING Scan the next expression. 
CP +2C Check for the correct 
separator - a','; 
CALL NZ,1BEE,CHECK-END but move on to the next 
statement if not matched. 
RST 0020,NEXT-CHAR Whilst there are still 
JR 1E2C,DATA-1 expressions to be checked go 


around the loop. 

The DATA statement has to be passed-by in 'run-time’. 

1E37 DATA-2 LD A,+E4 It is a 'DATA' statement that 
is to be passed-by. 


THE 'PASS-BY' SUBROUTINE 
On entry the A register will hold either the token 'DATA' or the token 'DEF FN' depending on the type of statement that is being 'passed- 
by’. 


1E39 PASS-BY LD BA Make the BC register pair hold 
a very high number. 
CPDR Look back along the statement 
for the token. 
LD DE,+0200 Now look along the line 
JP 198B,EACH-STMT for the statement after. (The 


'D-1'th statement from the 
current position). 


THE 'RESTORE' COMMAND ROUTINE 
The operand for a RESTORE command is taken as a line number, zero being used if no operand is given. 
The REST-RUN entry point is used by the RUN command routine. 


1E42 RESTORE CALL 1E99,FIND-INT2 Compress the operand into the 
BC register pair. 
1E45 REST-RUN LD H,B Transfer the result to the 
LD L,Cc HL register pair. 
CALL 196E,LINE-ADDR Now find the address of that 
line or the ‘first line after’. 
DEC HL Make DATADD point to the 
LD (DATADD),HL location before. 
RET Return once it is done. 


THE 'RANDOMIZE' COMMAND ROUTINE 
Once again the operand is compressed into the BC register pair and transferred to the required system variable. However if the 
operand is zero the value in FRAMES1 and FRAMES2 is used instead. 


1E4F RANDOMIZE CALL 1E99,FIND-INT2 Fetch the operand. 
LD A,B Jump forward unless the 
OR Cc value of the operand is 
JR NZ,1E5A,RAND-1 zero. 
LD BC,(FRAMES1) Fetch the two low order bytes 
of FRAMES instead. 
1E5A RAND-1 LD (SEED),BC Now enter the result into the 
RET system variable SEED before 
returning. 
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THE 'CONTINUE' COMMAND ROUTINE 


The required line number and statement number within that line are made the object of a jump. 


1E5F CONTINUE LD HL,(OLDPPC) The line number. 
LD D,(OSPPC) The statement number. 
JR 1E73,GO-TO-2 Jump forward. 


THE 'GO TO' COMMAND ROUTINE 


The operand of a GO TO ought to be a line number in the range '1' to '9999' but the actual test is against an upper value of '61439'. 


1E67 GO-TO CALL 1E99,FIND-INT2 Fetch the operand and transfer 
LD H,B it to the HL register pair. 
LD L,C 
LD D,+00 Set the statement number to 
zero. 
LD A,H Give the error message 
CP +FO - Integer out of range - 
JR NC,1E9F,REPORT-B with lines over '614139' 
The entry point GO-TO-2 is used to determine the line number of the next line to be handled in several instances. 
1E73 GO-TO-2 LD (NEWPPC),HL Enter the line number and 
LD (NSPPC),D then the statement number. 
RET Return; - to STMT-RET. 


THE 'OUT' COMMAND ROUTINE 


The two parameters for the OUT instruction are fetched from the calculator stack and used as directed. 


1E7A OUT CALL 1E85,TWO-PARAM The operands are fetched. 
OUT (C),A The actual OUT instruction. 
RET Return; - to STMT-RET. 


THE 'POKE' COMMAND ROUTINE 


In a similar manner the POKE operation is performed. 


1E80 POKE CALL 1E85,TWO-PARAM The operands are fetched. 
LD (BC),A The actual POKE operation. 
RET Return; - to STMT-RET. 


THE 'TWO-PARAM' SUBROUTINE 


The topmost parameter on the calculator stack must be compressible into a single register. It is two's complemented if it is negative. 
The second parameter must be compressible into a register pair. 


1E85 TWO-PARAM CALL 2DD5,FP-TO-A The parameter is fetched. 
JR C,1E9F,REPORT-B Give an error if it is too high 
a number. 
JR Z,1E8E, TWO-P-1 Jump forward with positive 
NEG numbers but two's complement 
negative numbers. 
1E8E TWO-P-1 PUSH AF Save the first parameter 
CALL 1E99,FIND-INT2 whilst the second is fetched. 
POP AF The first parameter is 
RET restored before returning. 


THE 'FIND INTEGERS' SUBROUTINE 
The ‘last value’ on the calculator stack is fetched and compressed into a single register or a register pair by entering at FIND-INT1 AND 
FIND-INT2 respectively. 


1E94 FIND-INT1 CALL 2DD5,FP-TO-A Fetch the ‘last value’. 

JR 1E9C,FIND-I-1 Jump forward. 
1E99 FIND-INT2 CALL 2DA2,FP-TO-BC Fetch the ‘last value’. 
1E9C FIND-I-1 JR C,1E9F,REPORT-B In both cases overflow is 
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RET 
Report B - Integer out of range 
1E9F REPORT-B RST 

DEFB 


0008,ERROR-1 
+0A 


THE 'RUN' COMMAND ROUTINE 
The parameter of the RUN command is passed to NEWPPC by calling the GO TO command routine. The operations of "RESTORE 0' 
and 'CLEAR 0' are then performed before a return is made. 


1EA1 RUN CALL 


1E67,GO-TO 
BC,+0000 
1E45,REST-RUN 
1EAF,CLEAR-1 


THE 'CLEAR' COMMAND ROUTINE 
This routine allows for the variables area to be cleared, the display area cleared and RAMTOP moved. In consequence of the last 
operation the machine stack is rebuilt thereby having the effect of also clearing the GO SUB stack. 


1EAC CLEAR CALL 


1EAF CLEAR-RUN LD 


1EB7 CLEAR-1 


1E99,FIND-INT2 


A.B 
e 
NZ,1EB7,CLEAR-1 
BC,(RAMTOP) 


BC 
DE,(VARS) 
HL,(E-LINE) 

HL 
19E5,RECLAIM-1 
OD6B,CLS 


indicated by a set carry flag. 
Return with all positive 
numbers that are in range. 


Call the error handling 
routine. 


Set NEWPPC as required. 
Now perform a 'RESTORE 0". 


Exit via the CLEAR command routine. 


Fetch the operand - using 
zero by default. 

Jump forward if the operand is 
other than zero. When called 
from RUN there is no jump. 

If zero use the existing value in 
RAMTOP. 

Save the value. 

Next reclaim all the bytes 

of the present variables 

area. 


Clear the display area. 


The value in the BC register pair which will be used as RAMTOP is tested to ensure it is neither too low nor too high. 


Report M - RAMTOP no good 


1EDA  REPORT-M_ RST 


DEFB 


Continue with the CLEAR operation. 
1EDC CLEAR-2 EX 


HL,(STKEND) 
DE, +0032 
HL,DE 


HL,(P-RAMT) 
A 

HL,DE 
NC,1EDC,CLEAR-2 


0008,ERROR-1 
+15 


DE,HL 
(RAMTOP),HL 
DE 

BC 

(HL),+3E 


HL 
SP,HL 
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The current value of STKEND. 
is increased by '50' before 
being tested. This forms the 
lower limit. 


RAMTOP will be too low. 

For the upper test the value 
for RAMTOP is tested against 
P-RAMT. 

Jump forward if acceptable. 


Call the error handling 
routine. 


Now the value can actually be 
passed to RAMTOP. 

Fetch the address - STMT-RET. 
Fetch the 'error address’. 

Enter a GO SUB stack end 
marker. 

Leave one location. 

Make the stack pointer point 


BC 
(ERR-SP),SP 


DE,HL 
(HL) 


to an empty GO SUB stack. 
Next pass the ‘error address' 
to the stack and save its 
address in ERR-SP. 

An indirect return is now 
made to STMT-RET. 


Note: When the routine is called from RUN the values of NEWPPC & NSPPC will have been affected and no statements coming after 
RUN can ever be found before the jump is taken. 


THE 'GO SUB' COMMAND ROUTINE 
The present value of PPC and the incremented value of SUBPPC are stored on the GO SUB stack. 


1EED GO-SUB POP 


DE 
H,(SUBPPC) 
H 

(SP),HL 

SP 

BC,(PPC) 

BC 
(ERR-SP),SP 
DE 
1E67,GO-TO-1 


BC,+0014 


THE 'TEST-ROOM' SUBROUTINE 


A series of tests is performed to ensure that there is sufficient free memory available for the task being undertaken. 


1F05 TEST-ROOM LD 
ADD 


JR 


RET 
Report 4 - Out of memory 
1F15 REPORT-4 LD 

JP 


HL,(STKEND) 
HL,BC 


C,1F15,REPORT-4 


DE,HL 

HL,+0050 

HL,DE 
C,1F15,REPORT-4 
HL,SP 


Cc 


L,+03 
0055,ERROR-3 


THE 'FREE MEMORY' SUBROUTINE 
There is no BASIC command 'FRE' in the SPECTRUM but there is a subroutine for performing such a task. 
An estimate of the amount of free space can be found at any time by using: 


"PRINT 65536-USR 7962' 
1F1A FREE-MEM LD 
CALL 


BC,+0000 
1F05,TEST-ROOM 
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Save the address - STMT-RET. 
Fetch the statement number 
and increment it. 

Exchange the ‘error address' 
with the statement number. 
Reclaim the use of a location. 
Next save the present line 
number. 

Return the ‘error address’ 

to the machine stack and 

reset ERR-SP to point to it. 
Return the address - 
STMT-RET. 

Now set NEWPPC & NSPPC to 
the required values. 

But before making the jump 
make a test for room. 


Increase the value taken from 
STKEND by the value carried 
into the routine by the BC 
register pair. 

Jump forward if the result is 
over +FFFF. 

Try it again allowing for a 
further eighty bytes. 


Finally test the value against the 
address of the machine stack. 
Return if satisfactory. 


This is a 'run-time'’ error and the 
error marker is not to be used. 


Do not allow any overhead. 
Make the test and pass the 


LD B,H result to the BC register 
LD CL before returning. 


THE 'RETURN' COMMAND ROUTINE 


The line number and the statement number that are to be made the object of a 'return' are fetched from the GO SUB stack. 


1F23 RETURN POP BC Fetch the address - STMT-RET. 
POP HL Fetch the ‘error address’. 
POP DE Fetch the last entry on the 
GO SUB stack. 
LD A,D The entry is tested to see if 
CP +3E it is the GO SUB stack end 
JR Z,1F36,REPORT-7 marker; jump if it is. 
DEC SP The full entry uses three 
locations only. 
EX (SP),HL Exchange the statement number 
with the 'error address’. 
EX DE,HL Move the statement number. 
LD (ERR-SP),SP Reset the error pointer. 
PUSH BC Replace the address - 
STMT-RET. 
JP 1E73,GO-TO-2 Jump back to change NEWPPC 
& NSPPC. 
Report 7 - RETURN without GOSUB 
1F36 REPORT-7 PUSH DE Replace the end marker and 
PUSH HL the ‘error address’. 
RST 0008,ERROR-1 Call the error handling 
DEFB +06 routine. 


THE 'PAUSE' COMMAND ROUTINE 
The period of the PAUSE is determined by counting the number of maskable interrupts as they occur every 1/50 th. of a second. 
A PAUSE is finished either after the appropriate number of interrupts or by the system Variable FLAGS indicating that a key has been 


pressed. 

1F3A PAUSE CALL 1E99,FIND-INT2 Fetch the operand. 

1F3D PAUSE-1 HALT Wait for a maskable interrupt. 
DEC BC Decrease the counter. 
LD A,B If the counter is thereby 
OR Cc reduced to zero the PAUSE 
JR Z,1F4F,PAUSE-END has come to an end. 
LD A,B If the operand was zero BC 
AND Cc will now hold +FFFF and this 
INC A value will be returned to 
JR NZ,1F49,PAUSE-2 zero. Jump will all other 
INC BC operand values. 

1F49 PAUSE-2 BIT 5,(FLAGS) Jump back unless a key has 
JR Z,1F3D,PAUSE-1 been pressed. 

The period of the PAUSE has now finished. 

1F4F PAUSE-END RES 5,(FLAGS) Signal 'no key pressed". 
RET Now return; - to STMT-RET. 


THE 'BREAK-KEY' SUBROUTINE 
This subroutine is called in several instances to read the BREAK key. The carry flag is returned reset only if the SHIFT and the BREAK 
keys are both being pressed. 


1F54 BREAK-KEY LD A,+7F Form the port address 
IN A,(+FE) +7FFE and read in a byte. 
RRA Examine only bit 0 by shifting 


it into the carry position. 
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THE 'DEF FN' COMMAND ROUTINE 


During syntax checking a DEF FN statement is checked to ensure that it has the correct form. Space is also made available for the 
result of evaluating the function. 


But in 'run-time' a DEF FN statement is passed-by. 


1F60 DEF-FN 


CALL 


2530,SYNTAX-Z 
Z,1F6A,DEF-FN-1 
A,+CE 
1E39,PASS-BY 


First consider the variable of the function. 


1F6A DEF-FN-1 


1F7D DEF-FN-2 


6,(FLAGS) 
2C8D,ALPHA 


NC,1F89,DEF-FN-4 
0020,NEXT-CHAR 
+24 
NZ,1F7D,DEF-FN-2 
6,(FLAGS) 


0020,NEXT-CHAR 
+28 
NZ,1FBD,DEF-FN-7 
0020,NEXT-CHAR 
+29 
Z,1FA6,DEF-FN-6 


A loop is now entered to deal with each parameter in turn. 


1F86 DEF-FN-3 
1F89 DEF-FN-4 


1F94 DEF-FN-5 


CALL 


2C8D,ALPHA 


NC,1C8A,REPORT-C 


DE,HL 
0020,NEXT-CHAR 
+24 
NZ,1F94,DEF-FN-5 
DE,HL 


0020,NEXT-CHAR 
DE,HL 


BC,+0006 
1655, MAKE-ROOM 
HL 


(HL),+0E 
+2C 
NZ,1FA6,DEF-FN-6 
0020,NEXT-CHAR 
1F86,DEF-FN-3 


Next the definition of the function is considered. 


1FA6 DEF-FN-6 


cP 
JR 


+29 
NZ,1FBD,DEF-FN-7 
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Return if the BREAK key is 
not being pressed. 

Form the port address 
+FEFE and read in a byte. 
Again examine bit 0. 

Return with carry reset if 
both keys are being pressed. 


Jump forward if checking 
syntax. 

Otherwise bass-by the 
‘DEF FN' statement. 


Signal 'a numeric variable’. 
Check that the present 
code is a letter. 

Jump forward if not. 

Fetch the next character. 
Jump forward unless it is 
a's. 

Change bit 6 as itis a 
string variable. 

Fetch the next character. 
A ‘(‘ must follow the 
variable's name. 

Fetch the next character. 
Jump forward if it is a 

'y' as there are no 
parameters of the function. 


The present code must be 

a letter. 

Save the pointer in DE. 
Fetch the next character. 
Jump forward unless it is 
a'$'. 

Otherwise save the new pointer 
in DE instead. 

Fetch the next character. 
Move the pointer to the last 
character of the name to the HL 
register pair. 

Now make six locations after 
that last character and 

enter a ‘number marker’ into 
the first of the new 

locations. 

If the present character is 
a',' then jump back as 

there should be a further 
parameter; otherwise jump 
out of the loop. 


Check that the ')' does 
exist. 


RST 0020,NEXT-CHAR The next character is fetched. 


CP +3D It must be an '=". 
JR NZ,1FBD,DEF-FN-7 
RST 0020,NEXT-CHAR Fetch the next character. 
LD A,(FLAGS) Save the nature - numeric or 
PUSH AF string - of the variable. 
CALL 2F4B,SCANNING Now consider the definition 
as an expression. 
POP AF Fetch the nature of the 
XOR (FLAGS) variable and check that it 
AND +40 is of the same type as found 
for the definition. 
1FBD DEF-FN-7 JP NZ,1C8A,REPORT-C Give an error report if it 
is required. 
CALL 1BEE,CHECK-END Exit via the CHECK-END 


subroutine. (Thereby moving 
on to consider the next state- 
ment in the line.) 


THE 'UNSTACK-Z' SUBROUTINE 


This subroutine is called in several instances in order to 'return early’ from a subroutine when checking syntax. The reason for this is to 
avoid actually printing characters or passing values to/from the calculator stack. 


1FC3 UNSTACK-Z CALL 2530,SYNTAX-Z Is syntax being checked? 
POP HL Fetch the return address but 
RET Z ignore it in 'syntax-time’. 
JP (HL) In ‘run-time’ make a simple 


return to the calling routine. 


THE 'LPRINT & PRINT’ COMMAND ROUTINES 


The appropriate channel is opened as necessary and the items to be printed are considered in turn. 


1FC9 LPRINT LD A,+03 Prepare to open channel 'P'. 
JR 1FCF,PRINT-1 Jump forward. 
1FCD PRINT LD A,+02 Prepare to open channel 'S'. 
1FCF PRINT-1 CALL 2530,SYNTAX-Z Unless syntax is being 
CALL NZ,1601,CHAN-OPEN checked open a channel. 
CALL 0D4D, TEMPS Set the temporary colour 
system variables. 
CALL 1FDF,PRINT-2 Call the print controlling 
subroutine. 
CALL 1BEE,CHECK-END Move on to consider the next 
RET statement; via CHECK-END if 


checking syntax. 
The print controlling subroutine is called by the PRINT, LPRINT and INPUT command routines. 


1FDF PRINT-2 RST 0018,GET-CHAR Get the first character. 
CALL 2045,PR-END-Z Jump forward if already at the 
JR Z,1FF2,PRINT-4 end of the item list. 
Now enter a loop to deal with the 'position controllers’ and the print items. 
1FE5 PRINT-3 CALL 204E,PR-POSN-1 Deal with any consecutive 
JR Z,1FE5,PRINT-3 position controllers. 
CALL 1FFC,PR-ITEM-1 Deal with a single print item. 
CALL 204E,PR-POSN-1 Check for further position 
JR Z,1FE5,PRINT-3 controllers and print items 
until there are none left. 
1FF2 PRINT-4 CP +29 Return now if the present 
RET Z character is a')'; otherwise 
consider performing a ‘carriage 
return’. 
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THE 'PRINT A CARRIAGE RETURN' SUBROUTINE 


1FF5 PRINT-CR CALL 


1FC3,UNSTACK-Z 
A,+0D 
0010,PRINT-A-1 


THE 'PRINT ITEMS' SUBROUTINE 
This subroutine is called from the PRINT, LPRINT and INPUT command routines. 
The various types of print item are identified and printed. 


1FFC PR-ITEM-1 RST 


Now deal with an 'AT'. 


Next look for a 'TAB'. 
200E PR-ITEM-2. CP 


Now deal with a 'TAB'. 


LD 


0018,GET-CHAR 
+AC 
NZ,200E,PR-ITEM-2 
1079,NEXT-2NUM 


1FC3,UNSTACK-Z 
2307,STK-TO-BC 


A,+16 
201E,PR-AT-TAB 
+AD 
NZ,2024,PR-ITEM-3 


0020,NEXT-CHAR 
1082,EXPT-1NUM 


1FC3,UNSTACK-Z 
1E99,FIND-INT2 


A,+17 


Return if changing syntax. 
Print a carriage return 
character and then return. 


The first character is fetched. 
Jump forward unless it is 
an'AT'. 


The two parameters are trans- 
ferred to the calculator stack. 
Return now if checking syntax. 
The parameters are compressed 
into the BC register pair. 

The A register is loaded with 

the AT control character before 
the jump is taken. 


Jump forward unless it is 
a 'TAB'. 


Get the next character. 

Transfer one parameter to the 
calculator stack. 

Return now if checking syntax. 
The value is compressed into the 
BC register pair. 

The A register is loaded with the 
TAB control character. 


The 'AT' and the 'TAB' print items are printed by making three calls to PRINT-OUT. 


201E PR-AT-TAB RST 


RET 
Next consider embedded colour items. 
2024 PR-ITEM-3. CALL 


RET 
CALL 


RET 


The print item must now be an expression, either numeric or string. 


CALL 
CALL 
BIT 

CALL 


JP 


0010,PRINT-A-1 
A,C 
0010,PRINT-A-1 
A,B 
0010,PRINT-A-1 


21F2,CO-TEMP-3 


NC 
2070,STR-ALTER 


NC 
24FB,SCANNING 
1FC3,UNSTACK-Z 
6,(FLAGS) 
Z,2BF1,STK-FETCH 


NZ,2DE3,PRINT-FP 
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Print the control character. 
Follow it with the first 
value. 

Finally print the second 
value; then return. 


Return with carry reset if a 
colour items was found. 
Continue if none were found. 
Next consider if the stream is 
to be changed. 

Continue unless it was altered. 


Evaluate the expression but 
return now if checking syntax. 
Test for the nature of the 
expression. 

If it is string then fetch the nec- 
essary parameters; but if it is 
numeric then exit via PRINT-FP. 


A loop is now set up to deal with each character in turn of the string. 


203C PR-STRING LD 


A.B 
ie 

BC 

Z 

A,(DE) 

DE 
0010,PRINT-A-1 
203C,PR-STRING 


THE 'END OF PRINTING' SUBROUTINE 


The zero flag will be set if no further printing is to be done. 


2045 PR-END-Z cP 


2048 PR-ST-END CP 


+29 
Z 
+0D 
Z 
+3A 


THE 'PRINT POSITION' SUBROUTINE 


The various position controlling characters are considered by this subroutine. 


204E PR-POSN-1 RST 


2061 PR-POSN-2 CP 


2067 PR-POSN-3 RST 


206E PR-POSN-4 CP 


0018,GET-CHAR 
+3B 
Z,2067,PR-POSN-3 
+2C 
NZ,2061,PR-POSN-2 
2530,SYNTAX-Z 
Z,2067,PR-POSN-3 
A,+06 
0010,PRINT-A-1 
2067,PR-POSN-3 
+27 

NZ 


1FF5,PR-CR 


0020,NEXT-CHAR 
2045,PR-END-Z 
NZ,206E,PR-POSN-4 
BC 

A 


THE 'ALTER STREAM' SUBROUTINE 


This subroutine is called whenever there is the need to consider whether the user wishes to use a different stream. 


2070 STR-ALTER CP 
SCF 
RET 
RST 
CALL 


AND 
CALL 
CALL 


cP 


+23 

NZ 
0020,NEXT-CHAR 
1C82,EXPT-1NUM 
A 
1FC3,UNSTACK-Z 
1E94,FIND-INT1 


+10 
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Return now if there are 

no characters remaining 

in the string; otherwise 
decease the counter. 

Fetch the code and increment 
the pointer. 

The code is printed and a jump 
taken to consider any further 
characters. 


Return now if the character 
isa’). 

Return now if the character is 
a ‘carriage return’. 

Make a final test against ':' 
before returning. 


Get the present character. 
Jump forward if it is 

a‘. 

Also jump forward with a 
character other than a','; 

but do not actually print the 
character if checking syntax. 
Load the A register with 

the ‘comma’ control code and 
print it; then jump forward. 

Is ita"? 

Return now if not any of the 
position controllers. 

Print ‘carriage return’ unless 
checking syntax. 

Fetch the next character. 

If not at the end of a print 
statement then jump forward; 
otherwise return to the 
calling routine. 

The zero flag will be reset if the 
end of the print statement has 
not been reached. 


Unless the present character 
is a '#' return with the 

carry flag set. 

Advance CH-ADD. 

Pass the parameter to the 
calculator stack. 

Clear the carry flag. 

Return now if checking syntax. 
The value is passed to the A 
register. 

Give report O if the value is 


JP 
CALL 


AND 
RET 


NC,160E,REPORT-O 
1601,CHAN-OPEN 


A 


THE 'INPUT' COMMAND ROUTINE 


This routine allows for values entered from the keyboard to be assigned to variables. It is also possible to have print items embedded in 


over +FF. 

Use the channel for the 
stream in question. 
Clear the carry flag and 
return. 


the INPUT statement and these items are printed in the lower part of the display. 


2089 


2096 


20AD 


INPUT 


INPUT-1 


INPUT-2 


CALL 


2530,SYNTAX-Z 
Z,2096,INPUT-1 
A,+01 
1601,CHAN-OPEN 
OD6E,CLS-LOWER 


(TV-FLAG),+01 
20C1,IN-ITEM-1 
1BEE,CHECK-END 


BC,(S-POSN) 
A,(DF-SZ) 

B 
C,20AD,INPUT-2 
C,+21 


(S-POSN),BC 


(SCR-CT),A 
0,(TV-FLAG) 
ODD9,CL-SET 
OD6E,CLS-LOWER 


Jump forward if syntax is 
being checked. 
Open channel 'K'. 


The lower part of the display 
is cleared. 


Signal that the lower screen is being 


handled. Reset all other bits. 
Call the subroutine to deal with 
the INPUT items. 

Move on to the next statement 
if checking syntax. 

Fetch the current print position. 
Jump forward if the current 
position is above the lower 
screen. 

Otherwise set the print position 
to the top of the lower screen. 
Reset S-POSN. 

Now set the scroll counter. 


Signal 'main screen’. 
Set the system variables 
and exit via CLS-LOWER. 


The INPUT items and embedded PRINT items are dealt with in turn by the following loop. 


20C1 


IN-ITEM-1 


CALL 


204E,PR-POSN-1 
Z,20C1,IN-ITEM-1 
+28 
NZ,20D8,IN-ITEM-2 
0020,NEXT-CHAR 
1FDF,PRINT-2 


0018,GET-CHAR 
+29 
NZ,1C8A,REPORT-C 
0020,NEXT-CHAR 
21B2,IN-NEXT-2 


Now consider whether INPUT LINE is being used. 


20D8 


IN-ITEM-2 


CP 


+CA 
NZ,20ED,|IN-ITEM-3 
0020,NEXT-CHAR 
1C1F,CLASS-01 


7,(FLAGX) 
6,(FLAGS) 
NZ,1C8A,REPORT-C 
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Consider first any position 
control characters. 

Jump forward if the present 
character is nota ‘(’. 

Fetch the next character. 

Now call the PRINT command 
routine to handle the items 
inside the brackets. 

Fetch the present character. 
Give report C unless the 
character is a')’. 

Fetch the next character and 
jump forward to see if there are 
any further INPUT items. 


Jump forward if it is not 
"LINE’. 

Advance CH-ADD. 
Determine the destination 
address for the variable. 
Signal 'using INPUT LINE’. 
Give report C unless using 
a string variable. 


JR 20FA,IN-PROMPT 


Proceed to handle simple INPUT variables. 


20ED ~—IN-ITEM-3.— CALL 2C8D,ALPHA 
JP NC,21AF-IN-NEXT-1 
CALL 1C1F,CLASS-01 
RES 7,(FLAGX) 


The prompt message is now built up in the work space. 


20FA — IN-PROMPT CALL 2530,SYNTAX-Z 
JP Z,21B2,IN-NEXT-2 
CALL 16BF,SET-WORK 
LD HL,+5C71 
RES 6,(HL) 
SET 5,(HL) 
LD BC,+0001 
BIT 7,(HL) 
JR NZ,211C,IN-PR-2 
LD A,(FLAGS) 
AND +40 
JR NZ,211A,IN-PR-1 
LD C,+03 

211A IN-PR-1 OR (HL) 
LD (HL),A 

211C —IN-PR-2 RST 0030,BC-SPACES 
LD (HL),+0D 
LD AC 
RRCA 
RRCA 
JR NC,2129,IN-PR-3 
LD A,+22 
LD (DE),A 
DEC HL 
LD (HL),A 

2129 ~~ IN-PR-3 LD (K-CUR),HL 


Jump forward to issue the 
prompt message. 


Jump to consider going round 
the loop again if the present 
character is not a letter. 
Determine the destination 
address for the variable. 
Signal 'not INPUT LINE’. 


Jump forward if only checking 
syntax. 

The work space is set to null. 
This is FLAGX. 

Signal 'string result’. 

Signal "INPUT mode’. 

Allow the prompt message only 
a single location. 

Jump forward if using 'LINE'. 


Jump forward if awaiting 
a numeric entry. 


A string entry will need three 
locations. 

Bit 6 of FLAGX will become 
set for a numeric entry. 

The required number of 
locations is made available. 
A ‘carriage return’ goes into 
the last location. 

Test bit 6 of the C register 
and jump forward if only 
one location was required. 


A ‘double quotes' character 
goes into the first and 
second locations. 


The position of the cursor 
can now be saved. 


In the case of INPUT LINE the EDITOR can be called without further preparation but for other types of INPUT the error stack has to be 


changed so as to trap errors. 


BIT 7,(FLAGX) 
JR NZ,215E,IN-VAR-3 
LD HL,(CH-ADD) 
PUSH HL 
LD HL,(ERR-SP) 
PUSH HL 
213A IN-VAR-1 LD HL,+213A 
PUSH HL 
BIT 4,(FLAGS2) 
JR Z,2148,IN-VAR-2 
LD (ERR-SP),SP 
2148 IN-VAR-2 LD HL,(WORKSP) 


11A7,REMOVE-FP 


LD (ERR-NR),+FF 
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Jump forward with INPUT 
LINE' 

Save the current values of 
CH-ADD & ERR-SP on the 
machine stack. 


This will be the 'return 

point' in case of errors. 

Only change the error 

stack pointer if using channel 
'K'. 

Set HL to the start of the 
INPUT line and remove any 
floating-point forms. (There will 
not be any except perhaps after 
an error.) 

Signal 'no error yet’. 


CALL 
RES 
CALL 
JR 


215E IN-VAR-3 CALL 


OF2C,EDITOR 
7,(FLAGS) 
21B9,IN-ASSIGN 
2161,IN-VAR-4 


OF2C,EDITOR 


Now get the INPUT and with 

the syntax/run flag indicating 
syntax, check the INPUT for 

errors; jump if in order; return 
to IN-VAR-1 if not. 

Get a 'LINE’. 


All the system variables have to be reset before the actual assignment of a value can be made. 


2161 IN-VAR-4 LD 


2174 IN-VAR-5 LD 


219B IN-VAR-6 LD 


(K-CUR-hi),+00 
21D6,IN-CHAN-K 
NZ,2174,IN-VAR-5 
111D,ED-COPY 
BC,(ECHO-E) 
ODD9,CL-SET 


HL,+5C71 
5,(HL) 
7,(HL) 
7,(HL) 


NZ,219B,IN-VAR-6 


HL 


(ERR-SP),HL 
HL 

(X-PTR),HL 
7,(FLAGS) 
21B9,IN-ASSIGN 


HL,(X-PTR) 
(X-PTR-hi), +00 
(CH-ADD),HL 
21B2,IN-NEXT-2 


HL,(STKBOT) 
DE,(WORKSP) 


C,L 
2AB2,STK-ST-$ 
2AFF,LET 
21B2,IN-NEXT-2 


Further items in the INPUT statement are considered. 


21AF IN-NEXT-1 CALL 
21B2 IN-NEXT-2. CALL 
JP 


RET 


1FFC,PR-ITEM-1 
204E,PR-POSN-1 
Z,20C1,IN-ITEM-1 


THE 'IN-ASSIGN' SUBROUTINE 


This subroutine is called twice for each INPUT value. Once with the syntax/run flag reset (syntax) and once with it set (run). 


21B9 IN-ASSIGN LD 


HL,(WORKSP) 
(CH-ADD),HL 
0018,GET-CHAR 
+E2 
Z,21D0,IN-STOP 
A,(FLAGX) 
1C59,VAL-FET-2 
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The cursor address is reset. 
The jump is taken if using 
other than channel 'K’. 

The input-line is copied to 
the display and the position 
in ECHO-E made the current 
position in the lower screen. 
This is FLAGX. 

Signal 'edit mode’. 

Jump forward if handling an 
INPUT LINE. 


Drop the address IN-VAR-1. 
Reset the ERR-SP to its 
original address. 

Save the original CH-ADD 
address in X-PTR. 

Now with the syntax/run flag 
indicating 'run' make the 
assignment. 

Restore the original address 
to CH-ADD and clear X-PTR. 


Jump forward to see if there 
are further INPUT items. 
The length of the ‘LINE’ in 
the work space is found. 


DE points to the start and 
BC holds the length. 
These parameters are stacked 


and the actual assignment made. 


Also jump forward to consider 
further items. 


Handle any print items. 

Handle any position controllers. 
Go around the loop again if 
there are further items; 
otherwise return. 


Set CH-ADD to point to the 
first location of the work 
space and fetch the character. 
Is ita'STOP'? 

Jump if it is. 

Otherwise make the assignment 
of the ‘value’ to the variable. 


RST 0018,GET-CHAR 
CP +0D 
RET Z 

Report C - Nonsense in BASIC 


Get the present character 
and check it is a ‘carriage 
return’. Return if it is. 


21CE REPORT-C RST 0008,ERROR-1 Call the error handling 
DEFB +0B routine. 

Come here if the INPUT line starts with 'STOP'. 

21D0 IN-STOP CALL 2530,SYNTAX-Z But do not give the error 


RET Z 

Report H - STOP in INPUT 

21D4 REPORT-H RST 0008,ERROR-1 
DEFB +10 


report on the syntax-pass. 


Call the error handling 
routine. 


THE 'IN-CHAN-K' SUBROUTINE 

This subroutine returns with the zero flag reset only if channel 'K' is being used. 

21D6 IN-CHAN-K LD HL,(CURCHL) The base address of the 
INC HL channel information for the 


INC HL current channel is fetched 

INC HL and the channel code compared 
INC HL to the character 'K'. 

LD A,(HL) 

CP +4B 

RET Return afterwards. 


THE 'COLOUR ITEM' ROUTINES 

This set of routines can be readily divided into two parts: 

i. The embedded colour item’ handler. 

ii. The 'colour system variable’ handler. 

i. Embedded colour items are handled by calling the PRINT-OUT subroutine as required. 
A loop is entered to handle each item in turn. The entry point is at CO-TEMP-2. 


21E1 CO-TEMP-1 RST 


21E2 CO-TEMP-2 CALL 


0020,NEXT-CHAR 


21F2,CO-TEMP-3 


Consider the next character 
in the BASIC statement. 
Jump forward to see if the 
present code represents an 
embedded ‘temporary’ colour 


RET Cc item. Return carry set if nota 
colour item. 

RST 0018,GET-CHAR Fetch the present character. 

CP +2C Jump back if it is either a 

JR Z,21E1,CO-TEMP-1 ‘or a';'; otherwise 

CP +3B there has been an error. 

JR Z,21E1,CO-TEMP-1 

JP 1C8A,REPORT-C Exit via 'report C’. 

21F2 CO-TEMP-3 CP +D9 Return with the carry flag 

RET Cc Set if the code is not in the 

CP +DF range +D9 to +DE (INK to 
OVER). 

CCF 

RET Cc 

PUSH AF The colour item code is 

RST 0020,NEXT-CHAR preserved whilst CH-ADD is 

POP AF advanced to address the 


parameter that follows it. 


The colour item code and the parameter are now 'printed’ by calling PRINT-OUT on two occasions. 


21FC CO-TEMP-4 SUB 


+C9 
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The token range (+D9 to +DE) 


is reduced to the control 
character range (+10 to +15). 


PUSH AF The control character code is 
CALL 1C82,EXPT-1NUM preserved whilst the parameter 
POP AF is moved to the calculator stack. 
AND A A return is made at this point 
CALL 1FC3,UNSTACK-Z if syntax is being checked. 
PUSH AF The control character code is 
CALL 1E94,FIND-INT1 preserved whilst the parameter 
LD DA is moved to the D register. 
POP AF 
RST 0010,PRINT-A-1 The control character is sent 
out. 
LD A,D Then the parameter is fetched 
RST 0010,PRINT-A-1 and sent out before 
RET returning. 


ii. The colour system variables - ATTR-T, MASK-T & P-FLAG - are altered as required. This subroutine is called by PRINT-OUT. On 
entry the control character code is in the A register and the parameter is in the D register. 
Note that all changes are to the 'temporary' system variables. 


2211 CO-TEMP-5 SUB +11 Reduce the range and jump 
ADC A,+00 forward with INK & PAPER. 
JR Z,2234,CO-TEMP-7 
SUB +02 Reduce the range once again 
ADC A,+00 and jump forward with FLASH 
JR Z,2273,CO-TEMP-C & BRIGHT. 
The colour control code will now be +01 for INVERSE and +02 for OVER and the system variable P-FLAG is altered accordingly. 
CP +01 Prepare to jump with OVER. 
LD A,D Fetch the parameter. 
LD B,+01 Prepare the mask for OVER. 
JR NZ,2228,CO-TEMP-6 Now jump. 
RLCA Bit 2 of the A register is to be 
RLCA reset for INVERSE 0 and set for 
LD B,+04 INVERSE 1; the mask is to have 
bit 2 set. 
2228 CO-TEMP-6 LD CAA Save the A register whilst the 
range is tested. 
LD A,D The correct range for 
CP +02 INVERSE and OVER is only 
JR NC,2244,REPORT-K ‘0-1'. 
LD A,C Fetch the A register. 
LD HL,+5C91 It is P-FLAG that is to be 
changed. 
JR 226C,CO-CHANGE Exit via CO-CHANGE and alter 


P-FLAG using 'B' as a mask. 
i.e. Bit 0 for OVER & bit 2 


for INVERSE' 
PAPER & INK are dealt with by the following routine. On entry the carry flag is set for INK. 
2234 CO-TEMP-7 LD A,D Fetch the parameter. 
LD B,+07 Prepare the mask for INK. 
JR C,223E,CO-TEMP-8 Jump forward with INK. 
RLCA Multiply the parameter for 
RLCA PAPER by eight. 
RLCA 
LD B,+38 Prepare the mask for PAPER. 
223E CO-TEMP-8 LD CA Save the parameter in the C 


register whilst the range of the 
parameter is tested. 
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CP 
JR 
Report K - Invalid colour 
2244 REPORT-K RST 
DEFB 


Continue to handle PAPER & INK; 
2246 CO-TEMP-9 LD 


2257 CO-TEMP-A LD 


The mask (B) and the value (C) are now used to change ATTR-T. 


2258 CO-TEMP-B_ LD 
CALL 


Next MASK-T is considered. 


A,D 
+0A 
C,2246,CO-TEMP-9 


0008,ERROR-1 
+13 


HL,+5C8F 


+08 
C,2258,CO-TEMP-B 
A,(HL) 

Z,2257,CO-TEMP-A 


B 


+24 
Z,2257,CO-TEMP-A 
AB 


C,A 


A,C 
226C,CO-CHANGE 


A,+07 

D 

AJA 
226C,CO-CHANGE 


THE 'CO-CHANGE' SUBROUTINE 


This subroutine is used to 'impress' upon a system variable the ‘nature’ 


shows which bits are to be 'copied over' from A to (HL). 


226C CO-CHANGE XOR 
AND 
XOR 


LD 


INC 


LD 
RET 


(HL) 

B 

(HL) 
(HL),A 


HL 


A,B 


FLASH & BRIGHT are handled by the following routine. 
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Fetch the original value. 
Only allow PAPER/INK a 
range of '0' to '9’. 


Call the error handling 
routine. 


Prepare to alter ATTR-T, 
MASK-T & P-FLAG. 

Jump forward with PAPER/INK 
'0' to '7'. 

Fetch the current value of 
ATTR-T and use it unchanged, 
by jumping forward, with 
PAPER/INK '8'. 

But for PAPER/INK '9' the 
PAPER and INK colours 

have to be black and white. 
Jump for black INK/PAPER; 
but continue for white INK/ 
PAPER. 

Move the value to the C register. 


Move the value. 
Now change ATTR-T as needed. 


The bits of MASK-T are set 

only when using PAPER/INK 

'8' or '9'. 

Now change MASK-T as needed. 


The appropriate mask is 

built up in the B register 

is order to change bits 4 & 

6 as necessary. 

The bits of P-FLAG are set 
only when using PAPER/INK 
‘g'. 

Continue into CO-CHANGE to 
manipulate P-FLAG. 


of the bits in the A register, The B register holds a mask that 


The bits, specified by the 
mask in the B register, are 
changed in the value and the 
result goes to form the 
system variable. 

Move on to address the next 
system variable. 

Return with the mask in the 
A register. 


2273 CO-TEMP-C SBC A,A The zero flag will be set for 


BRIGHT. 
LD A,D The parameter is fetched and 
RRCA rotated. 
LD B,+80 Prepare the mask for FLASH. 
JR NZ,227D,CO-TEMP-D Jump forward with FLASH. 
RRCA Rotate an extra time and 
LD B,+40 prepare the mask for BRIGHT. 
227D CO-TEMP-D LD CA Save the value in the C register. 
LD A,D Fetch the parameter and test 
CP +08 its range; only '0'" '1' 
JR Z,2287,CO-TEMP-E & '8' are allowable. 
cP +02 
JR NC,2244,REPORT-K 
The system variable ATTR-T can now be altered. 
2287 CO-TEMP-E LD A,C Fetch the value. 
LD HL,+5C8F This is ATTR-T. 
CALL 226C,CO-CHANGE Now change the system variable. 
The value in MASK-T is now considered. 
LD A,C The value is fetched anew. 
RRCA The set bit of FLASH/BRIGHT 
RRCA '8' (bit 3) is moved to 
RRCA bit 7 (for FLASH) or bit 6 
(for BRIGHT). 
JR 226C,CO-CHANGE Exit via CO-CHANGE. 


THE 'BORDER' COMMAND ROUTINE 


The parameter of the BORDER command is used with an OUT command to actually alter the colour of the border. The parameter is 
then saved in the system variable BORDCR. 


2294 BORDER CALL 1E94,FIND-INT1 The parameter is fetched 

CP +08 and its range is tested. 

JR NC,2244,REPORT-K 

OUT (+FE),A The OUT instruction is then 
used to set the border colour. 

RLCA The parameter is then 

RLCA multiplied by eight. 

RLCA 

BIT 5A If the border colour is a ‘light’ 

JR NZ,22A6,BORDER-1 colour then the INK colour in 


the editing area is to be black - 
make the jump. 


XOR +07 Change the INK colour. 
22A6 BORDER-1 LD (BORDCR),A Set the system variable as 
RET required and return. 


THE 'PIXEL ADDRESS' SUBROUTINE 

This subroutine is called by the POINT subroutine and by the PLOT command routine. Is is entered with the co-ordinates of a pixel in 
the BC register pair and returns with HL holding the address of the display file byte which contains that pixel and A pointing to the 
position of the pixel within the byte. 


22AA PIXEL-ADD LD A,+AF Test that the y co-ordinate (in 
SUB B B) is not greater than 175. 
JP C,24F9,REPORT-B 
LD BA B now contains 175 minus y. 
AND A A holds b7b6b5b4b3b2b1b0, 
RRA the bite of B. And now 

Ob7b6b5b4b3b2b1. 

SCF 
RRA Now 10b7b6b5b4b3b2. 
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RRA Now 010b7b6b5b4b3. 
XOR B 
AND +F8 Finally 010b7b6b2b1b0, so that 


XOR B H becomes 64 + 8*INT (B/64) + 
LD H,A B (mod 8), the high byte of the 
LD A,C pixel address. C contains X. 
RLCA A starts as c7c6c5c4c3c2c1c0. 
RLCA 

RLCA And is now c2c1c0c7c6c5c4c3. 
XOR B 

AND +C7 

XOR B Now c2c1b5b4b3c5c4c3. 
RLCA 

RLCA Finally b5b4b3c7c6c5c4c3, so 
LD LA that L becomes 32*INT (B(mod 
LD A,C 64)/8) + INT(x/8), the low byte. 
AND +07 A holds x(mod 8): so the pixel 
RET is bit (A - 7) within the byte. 


THE 'POINT' SUBROUTINE 
This subroutine is called by the POINT function in SCANNING. It is entered with the co-ordinates of a pixel on the calculator stack, and 
returns a last value of 1 if that pixel is ink colour, and 0 if it is paper colour. 


22CB POINT-SUB CALL 2307,STK-TO-BC Y co-ordinate to B, x to C. 
CALL 22AA,PIXEL-ADD Pixel address to HL. 
LD BA B will count A+1 loops to get 
INC B the wanted bit of (HL) to 
LD A,(HL) location 0. 

22D4 POINT-LP RLCA The shifts. 
DJNZ 22D4,POINT-LP 
AND +01 The bit is 1 for ink, 0 for paper. 
JP 2D28,STACK-A It is put on the calculator stack. 


THE 'PLOT' COMMAND ROUTINE 

This routine consists of a main subroutine plus one line to call it and one line to exit from it. The main routine is used twice by CIRCLE 
and the subroutine is called by DRAW. The routine is entered with the co-ordinates of a pixel on the calculator stack. It finds the 
address of that pixel and plots it, taking account of the status of INVERSE and OVER held in the P-FLAG. 


22DC 


22E5 


22F0 


22FD 


PLOT CALL 


PLOT-SUB LD 


PLOT-LOOP 


PL-TST-IN BIT 


2307,STK-TO-BC 
22E5,PLOT-SUB 
0D4D, TEMPS 
(COORDS),BC 
22AA,PIXEL-ADD 


22F0,PLOT-LOOP 
B.A 

A,(HL) 

C,(P-FLAG) 

0,C 
NZ,22FD,PL-TST-IN 
B 


2,C 
NZ,2303,PLOT-END 
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Y co-ordinate to B, x to C. 

The subroutine is called. 

Exit, setting temporary colours. 
The system variable is set. 
Pixel address to HL. 

B will count A+1 loops to get a 
zero to the correct place in A. 
The zero is entered. 

Then lined up with the pixel 

bit position in the byte. 

Then copied to B. 

The pixel-byte is obtained in A. 
P-FLAG is obtained and first 
tested for OVER. 

Jump if OVER 1. 

OVER 0 first makes the pixel 
zero. 

Test for INVERSE. 

INVERSE 1 just leaves the pixel 
as it was (OVER 1) or zero 
(OVER 0). 

INVERSE 0 leaves the pixel 


CPL complemented (OVER 1) or 


1 (OVER 0). 
2303 PLOT-END LD (HL),A The byte is entered. Its other 
bits are unchanged in every case. 
JP OBDB,PO-ATTR Exit, setting attribute byte. 


THE 'STK-TO-BC' SUBROUTINE 


This subroutine loads two floating point numbers into the BC register pair. It is thus used to pick up parameters in the range +00-+FF. It 
also obtains in DE the 'diagonal move' values (+1,+1) which are used in the line drawing subroutine of DRAW. 


2307 STK-TO-BC CALL 2314,STK-TO-A First number to A. 
LD BA Hence to B. 
PUSH BC Save it briefly. 
CALL 2314,STK-TO-A Second number to A. 
LD E,C Its sign indicator to E. 
POP BC Restore first number. 
LD D,C Its signs indicator to D. 
LD CA Second number to C. 
RET BC, DE are now as required. 


THE 'STK-TO-A' SUBROUTINE 
This subroutine loads the A register with the floating point number held at the top of the calculator stack. The number must be in the 
range 00-FF. 


2314 STK-TO-A CALL 2DD5,FP-TO-A Modulus of rounded last value to 
JP C,24F9,REPORT-B A if possible; else, report error. 
LD C,+01 One to C for positive last value. 
RET Z Return if value was positive. 
LD C,+FF Else change C to +FF (i.e. minus 
RET one). Finished. 


THE 'CIRCLE' COMMAND ROUTINE 

This routine draws an approximation to the circle with centre co-ordinates X and Y and radius Z. These numbers are rounded to the 
nearest integer before use. Thus Z must be less than 87.5, even when (X,Y) is in the centre of the screen. The method used is to draw 
a series of arcs approximated by straight lines. It is illustrated in the BASIC program in the appendix. The notation of that program is 
followed here. 


CIRCLE has four parts: 

i. Tests the radius. If its modulus is less than 1, just plot X,Y; 

ii. Calls CD-PRMS-1 at 2470-24B6, which is used to set the initial parameters for both CIRCLE and DRAW; 
iii. Sets up the remaining parameters for CIRCLE, including the initial displacement for the first 'arc' (a straight line in fact); 
iv. Jumps into DRAW to use the arc-drawing loop at 2420-24FA. 


Parts i. to iii. will now be explained in turn. 


i. 2320-23AA. The radius, say Z', is obtained from the calculator stack. Its modulus Z is formed and used from now on. If Z is less than 
1, it is deleted from the stack and the point X,Y is plotted by a jump to PLOT. 


2320 CIRCLE RST 0017,GET-CHAR Get the present character. 
CP +2C Test for comma. 
JP NZ,1C8A,REPORT-C If not so, report the error. 
RST 0020,NEXT-CHAR Get next character (the radius). 
CALL 1C82,EXPT-1NUM Radius to calculator stack. 
CALL 1BEE,CHECK-END Move to consider next statement 

if checking syntax. 

RST 0028,FP-CALC Use calculator: the stack holds: 
DEFB +2A,abs xX, Y,Z 
DEFB +3D,re-stack Z is re-stacked; its exponent 
DEFB +38,end-calc is therefore available. 
LD A,(HL) Get exponent of radius. 
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+81 
NC,233B,C-R-GRE-1 
0028,FP-CALC 
+02,delete 
+38,end-calc 
22DC,PLOT 


Test whether radius less than 1. 
If not, jump. 

If less, delete it from the stack. 
The stack holds X, Y. 


Just plot the point X, Y. 


ii. 233B-2346 and the call to CD-PRMS1. 2*PI is stored in mem-5 and CD-PRMS1 is called. This subroutine stores in the B register the 
number of arcs required for the circle, viz. A=4*INT (PI*SQR Z/4)+4, hence 4, 8, 12 ..., up to a maximum of 32. It also stores in mem-0 
to mem-4 the quantities 2*PI/A, SIN(PI/A), 0, COS (2*PI/A) and SIN (2*PI/A). 


233B C-R-GRE-1 RST 


0028,FP-CALC 
+A3,stk-pi/2 
+38,end-calc 
(HL),+83 
0028,FP-CALC 
+C5,st-mem-5 
+02,delete 
+38,end-calc 
247D,CD-PRMS1 


X, Y, Z, Pl/2. 

Now increase exponent to 83 
hex, changing PI/2 into 2*PI. 
X, Y, Z, 2*Pl. 

(2*Pl is copied to mem-5). 

xX, Y,Z 


Set the initial parameters. 


iii. 2347-2381: the remaining parameters and the jump to DRAW. A test is made to see whether the initial 'arc' length is less than 1. If it 
is, a jump is made simply to plot X, Y. Otherwise, the parameters are set: X+Z and X-Z*SIN (PI/A) are stacked twice as start and end 
point, and copied to COORDS as well; zero and 2*Z*SIN (PI/A) are stored in mem-1 and mem-2 as initial increments, giving as first ‘arc’ 
the vertical straight line joining X+Z, y-Z*SIN (PI/A) and X+Z, Y+Z*SIN (PI/A). The arc-drawing loop of DRAW will ensure that all 
subsequent points remain on the same circle as these two points, with incremental angle 2*PI/A. But it is clear that these 2 points in fact 
subtend this angle at the point X+Z*(1-COS (PI/A)), Y not at X, Y. Hence the end points of each arc of the circle are displaced right by 
an amount 2*(1-COS (PI/A)), which is less than half a pixel, and rounds to one pixel at most. 


2347 C-ARC-GE1 PUSH 


RST 


235A RST 


BC 
0028,FP-CALC 
+31,duplicate 
+E1,get-mem-1 
+04,multiply 
+38,end-calc 
A,(HL) 

+80 
NC,235A,C-ARC-GE1 
0028,FP-CALC 
+02,delete 
+02,delete 
+38,end-calc 
BC 
22DC,PLOT 
0028,FP-CALC 
+C2,st-mem-2 


+01,exchange 
+C0,st-mem-0 


+02,delete X,Y,Z*SIN (PI/A) 


+03,subtract 
+01,exchange 
+E0,get-mem-0 
+0F, addition 
+CO,st-mem-0 
+01,exchange 
+31,duplicate 


+E0,get-mem-0 
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Save the arc-count in B. 

X,Y,Z 

X,Y,Z,Z 

X,Y,Z,Z,SIN (PI/A) 

X,Y,Z,Z*SIN (PI/A) 

Z*SIN (PI/A) is half the initial 
‘arc’ length; it is tested to see 
whether it is less than 0.5. 

If not, the jump is made. 
Otherwise, Z is deleted from the 
stack, with the half-arc too; the 
machine stack is cleared; and a 
jump is made to plot X, Y. 


X,Y,Z,Z*SIN (PI/A) 

(Z*SIN (PI/A) to mem-2 for 
now). 

X,Y,Z*SIN (PI/A),Z 
X,Y,Z*SIN (PI/A),Z 


X, Y - Z*SIN (PI/A) 

Y - Z*SIN (PIA), X 

Y - Z*SIN (PIA), X, Z 

Y - Z*SIN (PI/A), X+Z 

(X+Z is copied to mem-0) 
X+Z, Y - Z*SIN (PI/A) 

X+Z, Y-Z*SIN (PI/A), Y-Z*SIN 
(PI/A) 

sa,sb,sb,sa 


DEFB 


+01,exchange 


sa,sb,sa,sb 


DEFB +31 ,duplicate sa,sb,sa,sb,sb 

DEFB +E0,get-mem-0 sa,sb,sa,sb,sb,sa 
DEFB +A0,stk-zero sa,sb,sa,sb,sb,sa,0 
DEFB +C1,st-mem-1 (mem-1 is set to zero) 
DEFB +02,delete sa,sb,sa,sb,sb,sa 
DEFB +38,end-calc 


(Here sa denotes X+Z and sb denotes Y - Z*SIN (PI/A)). 


INC (mem-2-1st) Incrementing the exponent byte 
of mem-2 sets mem-2 to 
2*Z*SIN(PI/A). 

CALL 1E94,FIND-INT1 The last value X+Z is moved 

LD LA from the stack to A and copied 
to L. 

PUSH HL It is saved in HL. 

CALL 1E94,FIND-INT1 Y - Z*SIN (PI/A) goes from the 

POP HL stack to A and is copied to H. 

LD H,A HL now holds the initial point. 

LD (COORDS),HL It is copied to COORDS. 

POP BC The arc-count is restored. 

JP 2420,DRW-STEPS The jump is made to DRAW. 


(The stack now holds X+Z, Y - Z*SIN (PI/A), Y - Z*SIN (PI/A), X+Z). 


THE DRAW COMMAND ROUTINE 
This routine is entered with the co-ordinates of a point XO, YO, say, in COORDS. If only two parameters X, Y are given with the DRAW 
command, it draws an approximation to a straight line from the point XO, YO to X0+X, YO+Y. If a third parameter G is given, it draws an 


approximation to a circular arc from XO, YO to X0+X, YO+Y turning anti-clockwise through an angle G radians. 


The routine has four parts: 


i. Just draws a line if only 2 parameters are given or if the diameter of the implied circle is less than 1; 

ii. Calls CD-PRMS1 at 247D-24B6 to set the first parameters; 

iii. | Sets up the remaining parameters, including the initial displacements for the first arc; 

iv. Enters the arc-drawing loop and draws the arc as a series of smaller arcs approximated by straight lines, calling the line- 
drawing subroutine at 24B7-24FA as necessary. 


Two subroutines, CD-PRMS1 and DRAW-LINE, follow the main routine. The above 4 parts of the main routine will now be treated in 


turn. 


i. If there are only 2 parameters, a jump is made to LINE-DRAW at 2477. A line is also drawn if the quantity Z=(ABS X + ABS Y)//ABS 
SIN(G/2) is less than 1. Z lies between 1 and 1.5 times the diameter of the implied circle. In this section mem-0 is set to SIN (G/2), 


mem-1 to Y, and mem-5 to G. 


2382 DRAW RST 0018,GET-CHAR Get the current character. 
CP +2C If it is a comma, 
JR Z,238D,DR-3-PRMS then jump. 
CALL 1BEE,CHECK-END Move on to next statement if 
checking syntax. 
JP 2477,LINE-DRAW Jump to just draw the line. 
238D DR-3-PRMS RST 0020,NEXT-CHAR Get next character (the angle). 
CALL 1C82,EXPT-1NUM Angle to calculator stack. 
CALL 1BEE,CHECK-END Move on to next statement if 
checking syntax. 
RST 0028,FP-CALC X, Y, G are on the stack. 
DEFB +C5,st-mem-5 (G is copied to mem-5) 
DEFB +A2,stk-half X, Y, G, 0.5 
DEFB +04,multiply X, Y, G/2 
DEFB +1F,sin X, Y, SIN (G/2) 
DEFB +31 duplicate X, Y, SIN (G/2), SIN (G/2) 
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DEFB +30,not X, Y, SIN (G/2), (0/1) 

DEFB +30,not X, Y, SIN (G/2), (1/0) 

DEFB +00,jump-true X, Y, SIN (G/2) 

DEFB +06,to DR-SIN-NZ (If SIN (G/2)=0 i.e. G = 2*N*PI 

DEFB +02,delete just draw a straight line). 

DEFB +38,end-calc X,Y 

JP 2477,LINE-DRAW Line XO, YO to X0+X, YO+Y. 
23A3 DR-SIN-NZ DEFB +C0,st-mem-0 (SIN (G/2) is copied to mem-0) 

DEFB +02,delete X, Y are now on the stack. 

DEFB +C1,st-mem-1 (Y is copied to mem-1). 

DEFB +02,delete x 

DEFB +31,duplicate X, X 

DEFB +2A,abs X, X' (X' = ABS X) 

DEFB +E1,get-mem-1 XX’, Y 

DEFB +01,exchange X, Y, X' 

DEFB +E1,get-mem-1 X, Y, X', Y 

DEFB +2A,abs X, Y, X', Y' (Y'= ABS Y) 

DEFB +0F addition X, Y, X'+Y" 

DEFB +E0,get-mem-0 X, Y, X'+Y', SIN (G/2) 

DEFB +05, division X, Y, (X'+Y'/SIN (G/2)=Z', say 

DEFB +2A,abs X, Y, Z (Z = ABS Z’') 

DEFB +E0,get-mem-0 X, Y, Z, SIN (G/2) 

DEFB +01,exchange X, Y, SIN (G/2), Z 

DEFB +3D,re-stack (Z is re-stacked to make sure 

DEFB +38,end-calc that its exponent is available). 

LD A,(HL) Get exponent of Z. 

CP +81 If Z is greater than or equal 

JR NC,23C1,DR-PRMS to 1, jump. 

RST 0028,FP-CALC X, Y, SIN (G/2), Z 

DEFB +02,delete X, Y, SIN (G/2) 

DEFB +02,delete xX, Y 

DEFB +38,end-calc Just draw the line from X0, YO 

JP 2477,LINE-DRAW to XO+X, YO+Y. 


ii. Just calls CD-PRMS1. This subroutine saves in the B register the number of shorter arcs required for the complete arc, viz. A=4*INT 
(G*SQR Z/8)+4, where G' = mod G, or 252 if this expression exceeds 252 (as can happen with a large chord and a small angle). SoA 
is 4, 8, 12, ... , up to 252. The subroutine also stores in mem-0 to mem-4 the quantities G/A, SIN (G/2*A), 0, COS (G/A), SIN (G/A). 
23C1 DR-PRMS CALL 247D,CD-PRMS1 The subroutine is called. 

iii. Sets up the rest of the parameters as follow. The stack will hold these 4 items, reading up to the top: XO+X and YO+Y as end of last 
arc; then XO and YO as beginning of first arc. Mem-0 will hold XO and mem-5 YO. Mem-1 and mem-2 will hold the initial displacements 
for the first arc, U and V; and mem-3 and mem-4 will hold COS (G/A) and SIN (G/A) for use in the arc-drawing loop. 


The formulae for U and V can be explained as follows. Instead of stepping along the final chord, of length L, say, with displacements X 
and Y, we want to step along an initial chord (which may be longer) of length L*W, where W=SIN (G/2*A)/SIN (G/2), with displacements 
X*W and Y*W, but turned through an angle - (G/2 - G/2*A), hence with true displacements: 


U = Y*W*SIN (G/2 - G/2*A) + X*W*COS (G/2 - G/2*A) 
Y = Y*W*COS (G/2 - G/2*A) - X*W*SIN (G/2 - G/2*A) 


These formulae can be checked from a diagram, using the normal expansion of COS (P - Q) and SIN (P - Q), where Q = G/2 - G/2*A 


23C4 PUSH BC Save the arc-counter in B. 
RST 0028,FP-CALC X,Y,SIN(G/2),Z 
DEFB +02,delete X,Y,SIN(G/2) 
DEFB +E1,get-mem-1 X,Y, SIN(G/2),SIN(G/2*A) 
DEFB +01,exchange X,Y, SIN(G/2*A),SIN(G/2) 
DEFB +05, division X,Y, SIN(G/2*A)/SIN(G/2)=W 
DEFB +C1,st-mem-1 (W is copied to mem-1). 
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+02,delete 
+01,exchange 
+31,duplicate 
+E1,get-mem-1 
+04, multiply 
+C2,st-mem-2 
+02,delete 
+01,exchange 
+31 ,duplicate 
+E1,get-mem-1 
+04, multiply 
+E2,get-mem-2 
+E5,get-mem-5 
+E0,get-mem-0 
+03,subtract 
+A2,stk-half 
+04, multiply 
+31 ,duplicate 
+1F,sin 
+C5,st-mem-5 
+02,delete 
+20,cos 
+C0,st-mem-0 
+02,delete 
+C2,st-mem-2 
+02,delete 
+C1,st-mem-1 
+E5,get-mem-5 
+04, multiply 
+E0,get-mem-0 
+E2,get-mem-2 
+04, multiply 
+0F, addition 
+E1,get-mem-1 
+01,exchange 
+C1,st-mem-1 
+02,delete 
+E0,get-mem-0 
+04, multiply 
+E2,get-mem-2 
+E5,get-mem-5 
+04, multiply 
+03,subtract 


+C2,st-mem-2 
+2A,abs 
+E1,get-mem-1 
+2A,abs 

+0F, addition 
+02,delete 
+38,end-calc 
A,(DE) 


C,2477,LINE-DRAW 
BC 

0028,FP-CALC 
+01,exchange 
+38,end-calc 
A,(COORDS-lo) 
2D28,STACK-A 
0028,FP-CALC 


YX,X*W 

(X*W is copied to mem-2). 
Y,X 

XY 

XY,Y 

X,Y,Y,W 

XY,Y*W 

X,Y,Y*W,X*W 
XY,Y*W,X*W,G 

X,Y, Y*W,X*W,G,G/A 

X,Y, Y*W,X*W,G - G/A 

XY, Y*W,X*W,G - G/A, % 
XY, Y*W,X*W, G/2 - G/2*A=F 
XY,Y*W,X*W, F, F 

X,Y, Y*W,X*W, F, SIN F 
(SIN F is copied to mem-5). 
X,Y, Y*W,X*W,F 

X,Y, Y*W,X*W, COS F 

(COS F is copied to mem-0). 
X,Y,Y*W,X*W 

(X*W is copied to mem-2). 
XY,Y*W 

(Y*W is copied to mem-1). 
XY, Y*W,SIN F 

X,Y, Y*W*SIN F 

XY, Y*W*SIN F,X*W 

X,Y, Y*W*SIN F,X*W, COS F 
X,Y, Y*W*SIN F,X*W*COS F 
XY, Y*W*SIN F+X*W*COS F=U 
X,Y,U,Y*W 

X,Y,Y*W,U 

(U is copied to mem-1) 
X,Y,Y*W 

X,Y,Y*W, COS F 
X,Y,Y*W*COS F 

X,Y, Y*W*COS F,X*W 

X,Y, Y*W*COS F,X*W, SIN F 
X,Y, Y*W*COS F,X*W*SIN F 
X,Y, Y*W*COS F - X*W*SIN 
FHV 

(V is copied to mem-2). 

X, Y, V' (V' = ABS V) 

xX Y,V',U 

X, Y, V', U' (U' = ABS U) 

xX, Y,U'+V' 

xX, Y 

(DE now points to U' + V'). 
Get exponent of U' + V' 

If U' + V' is less than 1, just 
tidy the stack and draw the line 
from XO, YO to X0+X, YO+Y. 
Otherwise, continue with the 
parameters: X, Y, on the stack. 
Y,X 


Get X0 into A and so 
on to the stack. 
Y, X, XO 


DEFB +C0,st-mem-0 (X0 is copied to mem-0). 


DEFB +0F, addition Y, X0+X 

DEFB +01,exchange X0+X, Y 

DEFB +38,end-calc 

LD A,(COORDS-hi) Get YO into A and so 
CALL 2D28,STACK-A on to the stack. 

RST 0028,FP-CALC X0+X, Y, YO 

DEFB +C5,st-mem-5 (YO is copied to mem-5). 
DEFB +0F, addition X0+X, YO+Y 

DEFB +E0,get-mem-0 X0+X, YO+Y, XO 

DEFB +E5,get-mem-5 X0+X, YO+Y, XO, YO 
DEFB +38,end calc 

POP BC Restore the arc-counter in B. 


iv. The arc-drawing loop. This is entered at 2439 with the co-ordinates of the starting point on top of the stack, and the initial 
displacements for the first arc in mem-1 and mem-2. It uses simple trigonometry to ensure that all subsequent arcs will be drawn to 
points that lie on the same circle as the first two, subtending the same angle at the centre. It can be shown that if 2 points X1, Y1 and 
X2, Y2 lie on a circle and subtend an angle N at the centre, which is also the origin of co-ordinates, then X2 = X1*COS N - Y1*SINN, 
and Y2 = X1*SIN N + Y1*COS N. But because the origin is here at the increments, say Un = Xn+1 - Xn and Vn = Yn+1 - Yn, thus 
achieving the desired result. The stack is shown below on the (n+1)th pass through the loop, as Xn and Yn are incremented by Un and 
Vn, after these are obtained from Un-1 and Vn-1. The 4 values on the top of the stack at 2425 are, in DRAW, reading upwards, X0+X, 
Y0O+Y, Xn and Yn but to save space these are not shown until 2439. For the initial values in CIRCLE, see the end of CIRCLE, above. In 
CIRCLE too, the angle G must be taken to be 2*PI. 


2420 DRW-STEPS DEC B B counts the passes through the 
loop. 
JR Z,245F ,ARC-END Jump when B has reached zero. 
JR 2439,ARC-START Jump into the loop to start. 
2425 ARC-LOOP RST 0028,FP-CALC (See text above for the stack). 
DEFB +E1,get-mem-1 Un-1 
DEFB +31,duplicate Un-1,Un-1 
DEBF +E3,get-mem-3 Un-1,Un-1,COS(G/A) 
DEFB +04,multiply Un-1,Un-1*COS(G/A) 
DEFB +E2,get-mem-2 Un-1,Un-1*COS(G/A),Vn-1 
DEFB +E4,get-mem-4 Un-1,Un-1*COS(G/A),Vn-1, 
SIN(G/A) 
DEFB +04, multiply Un-1,Un-1*COS(G/A),Vn-1* 
SIN(G/A) 
DEFB +03,subtract Un-1,Un-1*COS(G/A)-Vn-1* 
SIN(G/A)=Un 
DEFB +C1,st-mem-1 (Un is copied to mem-1). 
DEFB +02,delete Un-1 
DEFB +E4,get-mem-4 Un-1,SIN(G/A) 
DEFB +04, multiply Un-1*SIN(G/A) 
DEFB +E2,get-mem-2 Un-1*SIN(G/A),Vn-1 
DEFB +E3,get-mem-3 Un-1*SIN(G/A),Vn-1,COS(G/A) 
DEFB +04, multiply Un-1*SIN(G/A), Vn-1*COS(G/A) 
DEFB +0F addition Un-1*SIN(G/A)+Vn-1*COS 
(G/A)=Vn 
DEFB +C2,st-mem-2 (Vn is copied to mem-2). 
DEFB +02,delete (As noted in the text, the stack 
DEFB +38,end-calc in fact holds X0+X,YO+Y, Xn 
and Yn). 
2439 ARC-START PUSH BC Save the arc-counter. 
RST 0028,FP-CALC X0+X, YOty, Xn, Yn 
DEFB +C0,st-mem-0 (Yn is copied to mem-0). 
DEFB +02,delete X0+X, YO+Y, Xn 
DEFB +E1,get-mem-1 X0+X, YO+Y, Xn, Un 
DEFB +0F addition X0+X, YO+Y, Xn+Un = Xn+1 
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245F 


2477 


ARC-END 


LINE-DRAW 


JP 


+31,duplicate 
+38,end-calc 


A,(COORDS-lo) 
2D28,STACK-A 
0028,FP-CALC 
+03,subtract 


+E0,get-mem-0 
+E2,get-mem-2 
+0F, addition 


+C0,st-mem-0 
+01,exchange 
+E0,get-mem-0 


+38,end-calc 
A,(COORDS-hi) 
2D28,STACK-A 


0028,FP-CALC 
+03,subtract 


+38,end-calc 
24B7,DRAW-LINE 
BC 
2425,ARC-LOOP 
0028,FP-CALC 
+02,delete 
+02,delete 
+01,exchange 
+38,end-calc 
A,(COORDS-lo) 
2D28,STACK-A 
0028,FP-CALC 
+03,subtract 
+01,exchange 
+38,end-calc 
A,(COORDS-hi) 
2D28,STACK-A 
0028,FP-CALC 
+03,subtract 
+38,end-calc 
24B7,DRAW-LINE 


0D4D,TEMPS 


THE "INITIAL PARAMETERS' SUBROUTINE 


X0+X, YO+Y, Xn+1, Xn+1 
Next Xn’, the approximate 
value of Xn reached by 

the line-drawing subroutine 
is copied to A 

and hence to the stack. 
X0+X,YO+Y,Xn+1,Xn' 
X0+X,YO+Y,Xn+1,Xn+1,Xn' 
- Xn' = Un' 
X0+X,YO+Y,Xn+1,Un', Yn 
X0+X,YO+Y,Xn+1,Un',Yn,Vn 
X0+X,YO+Y,Xn+1,Un', Yn + 
Vn = Yn+1 

(Yn+1 is copied to mem-0). 
X0+X,YO+Y,Xn+1,Yn+1,Un' 
X0+X,YO+Y,Xn+1,Yn+1, 
Un',Yn+1 


Yn', approximate like Xn’, is 
copied to A and hence to the 
stack. 
X0+X,YO+Y,Xn+1,Yn+1, 
Un',Yn+1,Yn' 
X0+X,YO+Y,Xn+1,Yn+1, 
Un',Vn' 


The next ‘arc’ is drawn. 

The arc-counter is restored. 
Jump if more arcs to draw. 

The co-ordinates of the end 

of the last arc that was drawn 
are now deleted from the stack. 
YO+Y, XO+X 


The X-co-ordinate of the end of 
the last arc that was drawn, say 
Xz', is copied to the stack. 
YO+Y, XO+X - Xz' 

X0+X - Xz’, YO+Y 


The Y-co-ordinate is obtained. 


X0+X - Xz', YOY, Yz' 
X0+X - Xz', YOY - Yz' 


The final arc is drawn to reach 
X0+X, YO+Y (or close the 
circle). 

Exit, setting temporary colours. 


This subroutine is called by both CIRCLE and DRAW to set their initial parameters. It is called by CIRCLE with X, Y and the radius Z on 
the top of the stack, reading upwards. It is called by DRAW with its own X, Y, SIN (G/2) and Z, as defined in DRAW i. above, on the top 
of the stack. In what follows the stack is only shown from Z upwards. 

The subroutine returns in B the arc-count A as explained in both CIRCLE and DRAW above, and in mem-0 to mem-5 the quantities 
G/A, SIN (G/2*A), 0, COS (G/A), SIN (G/A) and G. For a circle, G must be taken to be equal to 2*PI. 


247D CD-PRMS1 RST 0028,FP-CALC Z 
DEFB +31,duplicate Z,Z 
DEFB +28,sqr Z, SQRZ 
DEFB +34,stk-data Z, SQR Z, 2 
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2495 USE-252 LD A,+FC Here, just use 252 decimal. 
2497 DRAW-SAVE PUSH AF Now save the arc-count. 

CALL 2D28,STACK-A Copy it to calculator stack too. 

RST 0028,FP-CALC Z,A 

DEFB +E5,get-mem-5 Z,A,G 

DEFB +01,exchange Z,G,A 

DEFB +05, division Z, G/A 

DEFB +31 duplicate Z,G/A, G/A 

DEFB +1F,sin Z, G/A, SIN (G/A) 

DEFB +C4,st-mem-4 (SIN (G/A) is copied to mem-4). 

DEFB +02,delete Z, GIA 

DEFB +31 duplicate Z, G/A, G/A 

DEFB +A2,stk-half Z, G/A, G/A, 0.5 

DEFB +04, multiply Z, GIA, G/2*A 

DEFB +1F,sin Z, G/A, SIN (G/2*A) 

DEFB +C1,st-mem-1 (SIN (G/2*A) is copied to 
mem-1). 

DEFB +01,exchange Z, SIN (G/2*A), G/A 

DEFB +C0,st-mem-0 (G/A is copied to mem-0). 

DEFB +02,delete Z, SIN (G/2*A) =S 

DEFB +31 duplicate Z,S,S 

DEFB +04, multiply Z,S*S 

DEFB +31 duplicate Z, S*S, S*S 

DEFB +0F addition Z, 2*S*S 

DEFB +A1,stk-one Z, 2*S*S, 1 

DEFB +03,subtract Z, 2*S*S - 1 

DEFB +1B,negate Z, 1 - 2*S*S = COS (G/A) 

DEFB +C3,st-mem-3 (COS (G/A) is copied to mem-3). 

DEFB +02,delete Z 

DEFB +38,end-calc 

POP BC Restore the arc-count to B. 

RET Finished. 


+32,exponent +82 


DEFB +00,(+00,+00,+00) 

DEFB +01,exchange Z, 2, SQRZ 

DEFB +05, division Z, 2/SQRZ 

DEFB +E5,get-mem-5 Z, 2/SQR Z, G 

DEFB +01,exchange Z, G, 2/SQR Z 

DEFB +05, division Z, G*SQR 2/2 

DEFB +2A,abs Z, G*SQR Z/2 (G' = mod G) 

DEFB +38,end-calc Z, G*SQR Z/2 = A1, say 

CALL 2DD5,FP-TO-A A1 to A from the stack, if 
possible. 

JR C,2495,USE-252 If A1 rounds to 256 or more, 
use 252. 

AND +FC 4*INT (A1/4) to A. 

ADD A,+04 Add 4, giving the arc-count A. 

JR NC,2497,DRAW-SAVE Jump if still under 256. 


THE LINE-DRAWING SUBROUTINE 


This subroutine is called by DRAW to draw an approximation to a straight line from the point XO, YO held in COORDS to the point 
X0+X, YO+Y, where the increments X and Y are on the top of the calculator stack. The subroutine was originally intended for the ZX80 
and ZX81 8K ROM, and it is described in a BASIC program on page 121 of the ZX81 manual. It is also illustrated here in the Circle 
program in the appendix. 

The method is to intersperse as many horizontal or vertical steps as are needed among a basic set of diagonal steps, using an 
algorithm that spaces the horizontal or vertical steps as evenly as possible. 

24B7 DRAW-LINE CALL 2307,STK-TO-BC ABS Y to B; ABS X to C; 
SGN Y to D; SGN X to E. 
Jump if ABS X is greater than 
or equal to ABS Y, so that the 


LD A,C 
CP B 
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24C4 


24CB 


DL-X-GE-Y 


DL-LARGER LD 


NC,24C4,DL-X-GE-Y 
L,Cc 

DE 

A 

EA 
24CB,DL-LARGER 


smaller goes to L, and the 
larger (later) goes to H. 

Save diag. step (+1,+1) in DE. 
Insert a vertical step (+1, 0) 
into DE (D holds SGN Y). 

Now jump to set H. 

Return if ABS X and ABS Y 
are both zero. 

The smaller (ABS Y here) goes 
to L. 

ABS X to B here, for H. 

Save the diagonal step here too. 
Hor. step (0, +1) to DE here. 
Larger of ABS X, ABS Y to H 
now. 


The algorithm starts here. The larger of ABS X and ABS Y, say H, is put into A and reduced to INT (H/2). The H - L horizontal or vertical 
steps and L diagonal steps are taken (where L is the smaller of ABS X and ABS Y) in this way: L is added to A; if A now equals or 
exceeds H, it is reduced by H and a diagonal step is taken; otherwise a horizontal or vertical step is taken. This is repeated H times (B 
also holds H). Note that meanwhile the exchange registers H' and L' are used to hold COORDS. 


24CE 


24D4 


24DB 


24DF 


24EC 


D-L-LOOP 


D-L-DIAG 


D-L-HR-VT 


D-L-STEP 


D-L-PLOT 


LD 
RRA 


A,B 


A,L 
C,24D4,D-L-DIAG 


H 
C,24DB,D-L-HR-VT 


24DF,D-L-STEP 
C,A 
DE 


BC 
HL,(COORDS) 


A,L 
C,24F7,D-L-RANGE 
Z,24F9,REPORT-B 
A 

C,A 
22E5,PLOT-SUB 
A,C 
24CE,D-L-LOOP 


DE 
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B to A as well as to H. 

A starts at INT (H/2). 

Lis added to A. 

If 256 or more, jump - diag. 
step. 

If Ais less than H, jump for 
horizontal or vertical step. 
Reduce A by H. 

Restore it to C. 

Now use the exchange resisters. 
Diag. step to B'C’'. 

Save it too. 

Jump to take the step. 

Save A (unreduced) in C. 
Step to stack briefly. 

Get exchange registers. 
Step to B'C' now. 

Now take the step: first, 
COORDS to H'L' as the start 
point. 

Y-step from B' to A. 

Add in H'. 

Result to B' . 

Now the X-step; it will be tested 
for range (Y will be tested in 
PLOT). 

Add L' to C'in A, jump on 
carry for further test. 

Zero after no carry denotes 
X-position -1, out of range. 
Restore true value to A. 
Value to C' for plotting. 

Plot the step. 

Restore main registers. 

C back to A to continue 
algorithm. 

Loop back for 8 steps (i.e. H 
steps). 

Clear machine stack. 
Finished. 


24F7 D-L-RANGE JR Z,24EC,D-L-PLOT Zero after carry denotes X. 
position 255, in range. 


Report B - Integer out of range 


24F9 REPORT-B RST 0008,ERROR-1 Call the error handling 
DEFB +0A routine. 
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EXPRESSION EVALUATION 


THE 'SCANNING' SUBROUTINE 
This subroutine is used to produce an evaluation result of the 'next expression’. 


The result is returned as the ‘last value’ on the calculator stack. For a numerical result, the last value will be the actual floating point 
number. However, for a string result the last value will consist of a set of parameters. The first of the five bytes is unspecified, the 
second and third bytes hold the address of the start of the string and the fourth and fifth bytes hold the length of the string. 

Bit 6 of FLAGS is set for a numeric result and reset for a string result. 


When a next expression consists of only a single operand, e.g. ... A..., ... RND ..., ... A$ (4,3 TO 7)... , then the last value is simply 
the value that is obtained from evaluating the operand. 
However when the next expression contains a function and an operand, e.g. ... CHR$A..., ... NOTA... , SIN 1 ..., the operation 


code of the function is stored on the machine stack until the last value of the operand has been calculated. This last value is then 
subjected to the appropriate operation to give a new last value. 

In the case of there being an arithmetic or logical operation to be performed, e.g. ... A+B ..., A*B ..., ... A=B ... , then both the last 
value of the first argument and the operation code have to be kept until the last value of the second argument has been found. Indeed 
the calculation of the last value of the second argument may also involve the storing of last values and operation codes whilst the 
calculation is being performed. 

It can therefore be shown that as a complex expression is evaluated, e.g. ... CHR$ (T+A - 26*INT ((T+A)/26)+65)..., a hierarchy of 
operations yet to be performed is built up until the point is reached from which it must be dismantled to produce the final last value. 

Each operation code has associated with it an appropriate priority code and operations of higher priority are always performed before 
those of lower priority. 

The subroutine begins with the A register being set to hold the first character of the expression and a starting priority marker - zero - 
being put on the machine stack. 


24FB SCANNING RST 0018,GET-CHAR The first character is fetched. 
LD B,+00 The starting priority marker. 
PUSH BC It is stacked. 

24FF S-LOOP-1 LD CA The main re-entry point. 
LD HL,+2596 Index into scanning function 
CALL 16DC,INDEXER table with the code in C. 
LD A,C Restore the code to A. 
JP NC,2684,S-ALPHNUM Jump if code not found in table. 
LD B,+00 Use the entry found in the table 
LD C,(HL) to build up the required address 
ADD HL,BC in HL, and jump to it. 
JP (HL) 


Four subroutines follow; they are called by routines from the scanning function table. The first one, the 'scanning quotes subroutine’, is 
used by S-QUOTE to check that every string quote is matched by another one. 


250F S-QUOTE-S CALL 0074,CH-ADD+1 Point to the next character. 
INC BC Increase the length count by 
one. 
CP +0D Is it a carriage return? 
JP Z, 1C8A,REPORT-C Report the error if so. 
CP +22 Is it another '""? 
JR NZ,250F ,S-QUOTE-S Loop back if it is not. 
CALL 0074,CH-ADD+1 Point to next character; set zero 
CP +22 flag if it is another "". 
RET Finished. 


The next subroutine, the 'scanning: two co-ordinates' subroutine, is called by S-SSCREEN$, S-ATTR and S-POINT to make sure the 
required two co-ordinates are given in their proper form. 


2522 S-2-COORD RST 0020, NEXT-CHAR Fetch the next character. 
CP +28 Is ita '('? 
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JR NZ,252D,S-RPORT-C 


CALL 1079,NEXT-2NUM 
RST 0018,GET-CHAR 
CP +29 


252D S-RPORT-C JP NZ,1C8A,REPORT-C 


THE 'SYNTAX-Z' SUBROUTINE 


At this point the 'SYNTAX-Z' subroutine is interpolated. It is called 32 times, with a saving of just one byte each call. A simple test of bit 


Report the error if it is not. 
Co-ordinates to calculator stack. 
Fetch the current character. 

Is ita ')'? 

Report the error if it is not. 


7 of FLAGS will give the zero flag reset during execution and set during syntax checking. 


i.e. SYNTAX gives Z set. 


2530 SYNTAX-Z BIT 


RET 


7,(FLAGS) 


The next subroutine is the 'scanning SCREEN$ subroutine’, which is used by S-SCREENSS$ to find the character that appears at line x, 


Test bit 7 of FLAGS. 
Finished. 


column y of the screen. It only searches the character set ‘pointed to' to CHARS. 


Note: This is normally the characters +20 (space) to +7F (©) although the user can alter CHARS to match for other characters, 


including user-defined graphics. 


2535  SSCRN$-S CALL 2307,STK-TO-BC 
LD HL,(CHARS) 
LD DE,+0100 
ADD HL,DE 
LD A.C 
RRCA 
RRCA 
RRCA 
AND +E0 
XOR B 
LD E,A 
LD A.C 
AND +18 
XOR +40 
LD DA 
LD B,+60 
254F § SSCRN-LP PUSH BC 
PUSH DE 
PUSH HL 
LD A,(DE) 
XOR (HL) 
JR Z,255A,S-SC-MTCH 
INC A 
JR NZ,2573,S-SCR-NXT 
DEC A 
255A  S-SC-MTCH LD CA 
LD B,+07 
255D  SSC-ROWS INC D 
INC HL 
LD A,(DE) 
XOR (HL) 
XOR Cc 
JR NZ,2573,S-SCR-NXT 
DJNZ 255D,S-SC-ROWS 
POP BC 
POP BC 


x to C, y to B; 0<=x<=23 
decimal; O<=y<=31 decimal. 
CHARS plus 256 decimal gives 
HL pointing to the character set. 
x is copied to A. 

The number 32 (decimal) * (x 
mod 8) + y is formed in A and 
copied to E. 

This is the low byte of the 
required screen address. 


x is copied to A again 

Now the number 64 (decimal) + 
8*INT (x/8) is inserted into D. 
DE now holds the screen address. 
B counts the 96 characters. 
Save the count. 

And the screen pointer. 

And the character set pointer. 
Get first row of screen character. 
Match with row from character 
set. 

Jump if direct match found. 
Now test for match with inverse 
character (get +00 in A from 
+FF). 

Jump if neither match found. 
Restore +FF to A. 

Inverse status (+00 or +FF) to C. 
B counts through the other 7 
rows. 

Move DE to next row (add 256 
dec.). 

Move HL to next row (i.e. next 
byte). 

Get the screen row. 

Match with row from the ROM. 
Include the inverse status. 
Jump if row fails to match. 
Jump back till all rows done. 
Discard character set pointer. 
And screen pointer. 
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2573 


257D 


POP BC 

LD A,+80 

SUB B 

LD BC,+0001 

RST 0030,BC-SPACES 

LD (DE),A 

JR 257D,S-SCR-STO 
S-SCR-NXT POP HL 

LD DE,+0008 

ADD HL,DE 

POP DE 

POP BC 

DJNZ 254F,S-SCRN-LP 

LD CB 


S-SCR-STO JP 2AB2,STK-STO-$ 


Final count to BC. 

Last character code in set plus 
one. 

A now holds required code. 
One space is now needed in the 
work space. 

Make the space. 

Put the character into it. 

Jump to stack the character. 
Restore character set pointer. 
Move it on 8 bytes, to the next 
character in the set. 

Restore the screen pointer. 

And the counter. 

Loop back for the 96 characters. 
Stack the empty string (Length 
zero). 

Jump to stack the matching 
character, or the null string if 

no match is found. 


Note: This exit, via STK-STO-$, is a mistake as it leads to 'double storing’ of the string result (see S-STRING, 25DB). The instruction 
line should be 'RET". 


The last of these four subroutines is the 'scanning attributes subroutine’. It is called by S-ATTR to return the value of ATTR (x,y) 
which codes the attributes of line x, column y on the television screen. 


2580 


S-ATTR-S CALL 2307,STK-TO-BC 
LD A.C 
RRCA 
RRCA 
RRCA 
LD CA 
AND +E0 
XOR B 
LD L.A 
LD A\C 
AND +03 
XOR +58 
LD H,A 
LD A,(HL) 
JP 2D28,STACK-A 


THE SCANNING FUNCTION TABLE 


This table contains 8 functions and 4 operators. It thus incorporates 5 new Spectrum functions and provides a neat way of accessing 


some functions and operators which already existed on the ZX81. 


location 
2596 
2598 
259A 
259C 
259E 
25A0 
25A2 
25A4 
25A6 
25A8 
25AA 


code offset name 

22 1c S-QUOTE 25B3 
28 4F S-BRACKET 25E8 
2E F2 S-DECIMAL 268D 
2B 12 S-U-PLUS 25AF 
A8 56 S-FN 25F5 
A5 57 S-AND 25F8 
A7 84 S-Pl 2627 
A6 8F S-INKEY$ 2634 
C4 E6 S-BIN (EQU. S-DECIMAL)  268D 
AA BF S-SCREEN$ 2668 
AB C7 S-ATTR 2672 
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x to C, y to B. Again, 0<=x<=23 
decimal; 0<=y<=31 decimal. 

x is copied to A and the number 
32 (decimal)*x (mod 8)+y is 
formed in A and copied to L. 
32*x(mod 8)+INT (x/8) is also 
copied to C. 


L holds low byte of attribute 
address. 

32*x(mod 8)+INT (x/8) is 
copied to A. 

88 (decimal)+INT (x/8) is 
formed in A and copied to H. 
H holds high byte of attribute 
address. 

The attribute byte is copied to 
A. 

Exit, stacking the required byte. 


address of handling routine 


25AC AQ CE S-POINT 267B 
25AE 00 End-marker 


THE SCANNING FUNCTION ROUTINES 


25AF S-U-PLUS RST 0020,NEXTCHAR For unary plus, simply move on 
JP 24FF,S-LOOP-1 to the next character and jump 
back to the main re-entry 
of SCANNING. 


The ‘scanning QUOTE routine’: This routine deals with string quotes, whether simple like "name" or more complex like "a ""white"" lie" 


or the seemingly redundant VAL$ """a""". 


25B3 S-QUOTE RST 0018,GET-CHAR Fetch the current character. 
INC HL Point to the start of the string. 
PUSH HL Save the start address. 
LD BC,+0000 Set the length to zero. 
CALL 250F,S-QUOTE-S Call the "matching" subroutine. 
JR NZ,25D9,S-Q-PRMS Jump if zero reset - no more 
quotes. 
25BE S-Q-AGAIN CALL 250F,S-QUOTE-S Call it again for a third quote. 
JR Z,25BE,S-Q-AGAIN And again for the fifth, seventh 
etc. 
CALL 2530,SYNTAX-Z If testing syntax, jump to reset 
JR Z,25D9,S-Q-PRMS bit 6 of FLAGS and to continue 
scanning. 
RST 0030,BC-SPACES Make space in the work space 


for the string and the 
terminating quote. 


POP HL Get the pointer to the start. 
PUSH DE Save the pointer to the first 
space. 
25CB S-Q-COPY LD A,(HL) Get a character from the string. 
INC HL Point to the next one. 
LD (DE),A Copy last one to work space. 
INC DE Point to the next space. 
CP +22 Is last character a '"? 
JR NZ,25CB,S-Q-COPY If not, jump to copy next one. 
LD A,(HL) But if it was, do not copy next 
INC HL one; if next one is a", jump 
CP +22 to copy the one after it; 
JR Z,25CB,S-Q-COPY otherwise, finished with copying. 
25D9 S-Q-PRMS DEC BC Get true length to BC. 


Note that the first quote was not counted into the length; the final quote was, and is discarded now. Inside the string, the first, third, fifth, 
etc., quotes were counted in but the second, fourth, etc., were not. 


POP DE Restore start of copied string. 
25DB S-STRING LD HL,+5C3B This is FLAGS; this entry point 
RES 6,(HL) is used whenever bit 6 is to be 
BIT 7,(HL) reset and a string stacked if exe- 
CALL NZ,2AB2,STK-STO-S cuting a line. This is done now. 
JP 2712,S-CONT-2 Jump to continue scanning the 
line. 


Note that in copying the string to the work space, every two pairs of string quotes inside the string ("") have been reduced to one pair of 
string quotes("). 


25E8 S-BRACKET RST 0020,NEXT-CHAR The 'scanning BRACKET 
CALL 24FB,SCANNING routine’ simply gets the 
CP +29 character and calls SCANNING 
recursively. 
JP NZ,1C8A,REPORT-C Report the error if no matching 
RST 0020,NEXT-CHAR bracket; then continue scanning. 
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JP 2712,S-CONT-2 
25F5 S-FN JP 27BD,S-FN-SBRN The ‘scanning FN routine’. 


This routine, for user-defined functions, just jumps to the 'scanning FN subroutine’. 


25F8 S-RND CALL 2530,SYNTAX-Z Unless syntax is being checked, 

JR Z,2626,S-RND-END jump to calculate a random 
number. 

LD BC,(SEED) Fetch the current value of 
SEED. 

CALL 2D2B,STACK-BC Put it on the calculator stack. 

RST 0028,FP-CALC Now use the calculator, 

DEFB +A1,stk-one The ‘last value’ is now 

DEFB +0F addition SEED+1. 

DEFB +34,stk-data Put the decimal number 75 

DEFB +37,exponent+87 on the calculator stack. 

DEFB +16,(+00,+00,+00) 

DEFB +04, multiply ‘last value’ (SEED+1)*75. 

DEFB +34,stk-data See STACK LITERALS to see 

DEFB +80,(four bytes) how bytes are expanded so as to 

DEFB +41,exponent +91 put the decimal number 65537 

DEFB +00,+00,+80,(+00) on the calculator stack. 

DEFB +32,n-mod-m Divide (SEED+1)*75 by 65537 
to give a 'remainder' and an 
‘answer’. 

DEFB +02,delete Discard the 'answer'. 

DEFB +A1,stk-one The ‘last value’ is now 

DEFB +03,subtract ‘remainder’ - 1. 

DEFB +31 ,duplicate Make a copy of the ‘last value’. 

DEFB +38,end-calc The calculation is finished. 

CALL 2DA2,FP-TO-BC Use the ‘last value’ to give the 

LD (SEED),BC new value for SEED. 

LD A,(HL) Fetch the exponent of ‘last 
value’. 

AND A Jump forward if the exponent is 

JR Z,2625,S-RND-END zero. 

SUB +10 Reduce the exponent, i.e. divide 

LD (HL),A ‘last value’ by 65536 to give the 
required ‘last value’. 

2625 S-RND-END JR 2630,S-PI-END Jump past the 'PI' routine. 


The 'scanning-PI routine’: unless syntax is being checked the value of 'Pl' is calculated and forms the ‘last value’ on the calculator stack. 


2627 S-PI CALL 2530,SYNTAX-Z Test for syntax checking. 

JR Z,2630,S-PI-END Jump if required. 

RST 0028,FP-CALC Now use the calculator. 

DEFB +A3,stk-pi/2 The value of PI/2 is put on the 

DEFB +3B,end-calc calculator stack as the ‘last 
value’. 

INC (HL) The exponent is incremented 
thereby doubling the ‘last value’ 
giving PI. 

2630 S-PI-END RST 0020,NEXT-CHAR Move on to the next character. 

JP 26C3,S-NUMERIC Jump forward. 

2634 S-INKEY$ LD BC,+105A Priority +10 hex, operation 

RST 0020,NEXT-CHAR code +5A for the 'read-in' 
subroutine. 

CP +23 If next char. is '#', jump. 

JP Z,270D,S-PUSH-PO There will be a numerical 
argument. 

LD HL,+5C3B This is FLAGS. 

RES 6,(HL) Reset bit 6 for a string result. 

BIT 7,(HL) Test for syntax checking. 
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JR Z,2665,S-INK$-EN Jump if required. 
CALL 028E,KEY-SCAN Fetch a key-value in DE. 
LD C,+00 Prepare empty string; stack it if 
JR NZ,2660,S-IK$-STK too many keys pressed. 
CALL 031E,K-TEST Test the key value; stack empty 
JR NC,2660,S-IK$-STK string if unsatisfactory. 
DEC D +FF to D for L made (bit 3 set). 
LD EA Key-value to E for decoding. 
CALL 0333,K-DECODE Decode the key-value. 
PUSH AF Save the ASCII value briefly. 
LD BC,+0001 One space is needed in the work 
space. 
RST 0030,BC-SPACES Make it now. 
POP AF Restore the ASCII value. 
LD (DE),A Prepare to stack it as a string. 
LD C,+01 Its length is one. 
2660 S-IK$-STK LD B,+00 Complete the length parameter. 
CALL 2AB2,STK-STO-$ Stack the required string. 
2665 S-INK$-EN JP 2712,S-CONT-2 Jump forward. 
2668 S-SCREEN$ CALL 2522,S-2-COORD Check that 2 co-ordinates are 
given. 
CALL NZ,2535,S-SCRN$-S Call the subroutine unless 
RST 0020,NEXT-CHAR checking syntax; then get next 
JP 25DB,S-STRING character and jump back. 
2672 S-ATTR CALL 2522,5-2-COORD Check that 2 co-ordinates are 
given. 
CALL NZ,2580,S-ATTR-S Call the subroutine unless 
RST 0020,NEXT-CHAR checking syntax; then get the 
JR 26C3,S-NUMERIC next character and jump 
forward. 
267B S-POINT CALL 2522,S-2-COORD Check that 2 co-ordinates are 
given. 
CALL NZ,22CB,POINT-SUB Call the subroutine unless 
RST 0020,NEXT-CHAR checking syntax; then get the 
JR 26C3,S-NUMERIC next character and jump 
forward. 
2684 S-ALPHNUM CALL 2C88,ALPHANUM Is the character alphanumeric? 
JR NC,26DF,S-NEGATE Jump if not a letter or a digit. 
CP +41 Now jump if it a letter; 
JR NC,26C9,S-LETTER otherwise continue on into 


S-DECIMAL. 


The 'scanning DECIMAL routine’ which follows deals with a decimal point or a number that starts with a digit. It also takes care of the 
expression 'BIN', which is dealt with in the 'decimal to floating-point’ subroutine. 


268D S-DECIMAL CALL 
(EQU. S-BIN) JR 


2530,SYNTAX-Z 
NZ,2685,S-STK-DEC 


Jump forward if a line is 
being executed. 


The action taken is now very different for syntax checking and line execution. If syntax is being checked then the floating-point form has 
to be calculated and copied into the actual BASIC line. However when a line is being executed the floating-point form will always be 
available so it is copied to the calculator stack to form a ‘last value’. 


During syntax checking: 


CALL 2C9B,DEC-TO-FP The floating-point form is 
found. 

RST 0018,GET-CHAR Set HL to point one past the 
last digit. 

LD BC,+0006 Six locations are required. 

CALL 1655, MAKE-ROOM Make the room in the BASIC 
line. 

INC HL Point to the first free space. 

LD (HL),+0E Enter the number marker code. 

INC HL Point to the second location. 

EX DE,HL This pointer is wanted in DE. 
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During line execution: 
26B5 S-STK-DEC RST 
26B6 S-SD-SKIP — INC 


A numeric result has now been identified, coming from RND, PI, ATTR, 


set. 


26C3 S-NUMERIC SET 
JR 


HL,(STKEND) 
C,+05 

A 

HL,BC 


(STKEND),HL 
DE,HL 
HL 


0077, TEMP-PTR1 
26C3,S-NUMERIC 


0018,GET-CHAR 


NZ,26B6,S-SD-SKIP 


HL 


33B4,STACK-NUM 
(CH-ADD),HL 


6,(FLAGS) 
26DD,S-CONT-1 


THE SCANNING VARIABLE ROUTINE 
When a variable name has been identified a call is made to LOOK-VARS which looks through those variables that already exist in the 
variables area (or in the program area at DEF FN statements for a user-defined function FN). If an appropriate numeric value is found 
then it is copied to the calculator stack using STACK-NUM. However a string or string array entry has to have the appropriate 
parameters passed to the calculator stack by the STK-VAR subroutine (or in the case of a user-defined function, by the STK-F-ARG 


subroutine as called from LOOK-VARS). 


26C9 S-LETTER CALL 


26DD S-CONT-1 JR 


28B2,LOOK-VARS 


C,1C2E,REPORT-2 


Z,2996,STK-VARS 


A,(FLAGS) 
+C0 
C,26DD,S-CONT-1 
HL 
33B4,STACK-NUM 
2712,S-CONT-2 


Fetch the '‘old' STKEND. 
There are 5 bytes to move. 
Clear the carry flag. 

The 'new' STKEND='old' 
STKEND -5. 

Move the floating-point number 
from the calculator stack to 
the line. 

Put the line pointer in HL. 
Point to the last byte added. 
This sets CH-ADD. 

Jump forward. 


Get the current character. 

Now move on to the next 
character in turn until 

the number marker code 

is found. 

Point to the first byte of the 
number. 

Move the floating-point number. 
Set CH-ADD. 


POINT or a decimal number, therefore bit 6 of FLAGS must be 


Set the numeric marker flag. 
Jump forward. 


Look in the existing variables 
for the matching entry. 

An error is reported if there is 
no existing entry. 

Stack the parameters of the 
string entry/return numeric 
element base address. 

Fetch FLAGS. 

Test bits 6 and 7 together. 
One or both bits are reset. 

A numeric value is to be stacked. 
Move the number. 

Jump forward. 


The character is tested against the code for '-’, thus identifying the 'unary minus' operation. 


Before the actual test the B register is set to hold the priority +09 and the C register the operation code +D8 that are required for this 


operation. 
26DF S-NEGATE LD 


CP 
JR 


BC,+09DB 


+2D 


Z,270D,S-PUSH-PO 


Priority +09, operation code 
+D8. 

Is ita '-'? 

Jump forward if it is 'unary 
minus’. 


Next the character is tested against the code for 'VAL$', with priority 16 decimal and operation code 18 hex. 


LD BC,+1018 Priority 16 dec, operation code 


+18 hex. 
CP +AE Is it 'VAL$'? 
JR Z,270D,S-PUSH-PO Jump forward if it is 'VAL$"'. 


The present character must now represent one of the functions CODE to NOT, with codes +AF to +C3. 


SUB +AF The range of the functions is 
changed from +AF to +C3 to 
range +00 to +14 hex. 

JP C,1C8A,REPORT-C Report an error if out of range. 


The function 'NOT' is identified and dealt with separately from the others. 


LD BC,+04F0 Priority +04, operation code 
+FO. 

CP +14 Is it the function 'NOT'? 

JR Z,270D,S-PUSH-PO Jump if it is so. 

JP NC,1C8A,REPORT-C Check the range again. 


The remaining functions have priority 16 decimal. The operation codes for these functions are now calculated. Functions that operate 
on strings need bit 6 reset and functions that give string results need bit 7 reset in their operation codes. 


LD B,+10 Priority 16 decimal. 

ADD A,+DC The function range is now +DC 
+EF. 

LD CA Transfer the operation code. 

CP +DF Separate CODE, VAL and LEN 

JR NC,2707.S-NO-TO-S which operate on strings to give 

RES 6,C numerical results. 

2707 S-NO-TO-S CP +EE Separate STR$ and CHR$ 

JR C,2700,S-PUSH-PO which operate on numbers to 
give string results. 

RES 7,C Mark the operation codes. 


The other operation codes have 
bits 6 and 7 both set. 


The priority code and the operation code for the function being considered are now pushed on to the machine stack. A hierarchy of 
operations is thereby built up. 


270D S-PUSH-PO PUSH BC Stack the priority and operation 
RST 0020,NEXT-CHAR codes before moving on to 
JP 24FF,S-LOOP-1 consider the next part of the 
expression. 


The scanning of the line now continues. The present argument may be followed by a ‘(', a binary operator or, if the end of the 
expression has been reached, then e.g. a carriage return character or a colon, a separator or a "THEN". 


2712 S-CONT-2 RST 0018,GET-CHAR Fetch the present character. 
2713 S-CONT-3 CP +28 Jump forward if it is not a‘(', 
JR NZ,2723,S-OPERTR which indicates a parenthesised 
expression. 


If the ‘last value’ is numeric then the parenthesised expression is a true sub-expression and must be evaluated by itself. However if the 
‘last value’ is a string then the parenthesised expression represents an element of an array or a slice of a string. A call to SLICING 
modifies the parameters of the string as required. 


BIT 6,(FLAGS) Jump forward if dealing with a 

JR NZ,2734,S-LOOP numeric parenthesised 
expression. 

CALL 2A52,SLICING Modify the parameters of the 
‘last value’. 

RST 0020,NEXT-CHAR Move on to consider the next 

JR 2713,S-CONT-3 character. 
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If the present character is indeed a binary operator it will be given an operation code in the range +C3 - +CF hex, and the appropriate 
priority code. 


2723 S-OPERTR LD B,+00 Original code to BC to index 

LD CA into table of operators. 

LD HL,+2795 The pointer to the table. 

CALL 16DC,INDEXER Index into the table. 

JR NC,2734,SLOOP Jump forward if no operation 
found. 

LD C,(HL) Get required code from the 
table. 

LD HL,+26ED The pointer to the priority 


table: i.e. 26ED +C3 gives 27B0 
as the first address. 

ADD HL,BC Index into the table. 

LD B,(HL) Fetch the appropriate priority. 


The main loop of this subroutine is now entered. At this stage there are: 


i. A'last value’ on the calculator stack. 

ii. |The starting priority market on the machine stack below a hierarchy, of unknown size, of function and binary operation codes. 
This hierarchy may be null. 

iii. | The BC register pair holding the 'present' operation and priority, which if the end of an expression has been reached will be 
priority zero. 


Initially the 'last' operation and priority are taken off the machine stack and compared against the 'present' operation and priority. 


If the 'present' priority is higher than the ‘last’ priority then an exit is made from the loop as the 'present' priority is considered to bind 
tighter than the ‘last' priority. 

However, if the present priority is less binding, then the operation specified as the ‘last' operation is performed. The ‘present’ 
operation and priority go back on the machine stack to be carried round the loop again. In this manner the hierarchy of functions and 
binary operations that have been queued are dealt with in the correct order. 


2734 S-LOOP POP DE Get the ‘last’ operation and 

priority. 

LD A,D The priority goes to the A 
register. 

CP B Compare ‘last’ against 'present’. 

JR C,2773,S-TIGHTER Exit to wait for the argument. 

AND A Are both priorities zero? 

JP Z,0018,GET-CHAR Exit via GET-CHAR thereby 
making ‘last value’ the required 
result. 


Before the ‘last’ operation is performed, the 'USR' function is separated into 'USR number’ and 'USR string’ according as bit 6 of FLAGS 
was set or reset when the argument of the function was stacked as the ‘last value’. 


PUSH BC Stack the 'present' values. 

LO HL,+5C3B This is FLAGS. 

LD A,E The ‘last’ operation is compared 

CP +ED with the code for USR, which 

JR NZ,274C,S-STK-LST will give 'USR number' unless 
modified; jump if not 'USR'. 

BIT 6,(HL) Test bit 6 of FLAGS. 

JR NZ,274C,S-STK-LST Jump if it is set ((USR number’). 

LD E,+99 Modify the 'last' operation 


code: 'offset' 19, +80 for string 
input and numerical result 


(‘USR string’). 
274C S-STK-LST | PUSH DE Stack the 'last' values briefly. 
CALL 2530,SYNTAX-Z Do not perform the actual 
JR Z,275B,S-SYNTEST operation if syntax is being 
checked. 
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LD A,E The ‘last’ operation code. 


AND +3F Strip off bits 6 and 7 to convert 

LD B,A the operation code to a 
calculator offset. 

RST 0028,FP-CALC Now use the calculator. 

DEFB +3B,fp-calc-2 Perform the actual operation 

DEFB +38,end-calc It has been done. 

JR 2764,S-RUNTEST Jump forward. 


An important part of syntax checking involves the testing of the operation to ensure that the nature of the ‘last value’ is of the correct 
type for the operation under consideration. 


275B S-SYNTEST LD A,E Get the ‘last’ operation code. 
XOR (FLAGS) This tests the nature of the ‘last 
AND +40 value’ against the requirement 


of the operation. They are to be 
the same for correct syntax. 
2761 S-RPORT-C JP NZ,1C8A,REPORT-C Jump if syntax fails. 


Before jumping back to go round the loop again the nature of the ‘last value' must be recorded in FLAGS. 


2764 S-RUNTEST POP DE Get the ‘last’ operation code. 
LD HL,+5C3B This is FLAGS. 
SET 6,(HL) Assume result to be numeric. 
BIT 7,E Jump forward if the nature of 
JR NZ,2770,S-LOOPEND ‘last value’ is numeric. 
RES 6,(HL) It is string. 

2770 S-LOOPEND POP BC Get the 'present' values into BC: 
JR 2734,S-LOOP Jump back. 


Whenever the 'present' operation binds tighter, the 'last' and the 'present' values go back on the machine stack. However if the 'present' 
operation requires a string as its operand then the operation code is modified to indicate this requirement. 


2773 S-TIGHTER PUSH DE The ‘last’ values go on the stack. 
LD A,C Get the 'present’ operation 
code. 
BIT 6,(FLAGS) Do not modify the operation 
JR NZ,2790,S-NEXT code if dealing with a numeric 
operand. 
AND +3F Clear bits 6 and 7. 
ADD A,+08 Increase the code by +08 hex. 
LD C,A Return the code to the C 
register. 
CP +10 Is the operation 'AND'? 
JR NZ,2788,S-NOT-AND Jump if it is not so. 
SET 6,C ‘AND' requires a numeric 
operand. 
JR 2790,S-NEXT Jump forward. 
2788 S-NOT-AND JR C,2761,S-RPORT-C The operations -, *, /,*and OR 
are not possible between strings. 
CP +17 Is the operation a '+'? 
JR Z,2790,S-NEXT Jump if it is so. 
SET 7,C The other operations yield a 
numeric result. 
2790 S-NEXT PUSH BC The 'present' values go on the 
machine stack. 
RST 0020,NEXT-CHAR Consider the next character. 
JP 24FF,S-LOOP-1 Go around the loop again. 
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THE TABLE OF OPERATORS 


location 


2795 
2797 
2799 
279B 
279D 
279F 
27A1 


THE TABLE OF PRIORITIES (precedence table) 


location 
27B0 
27B1 
27B2 
27B3 
27B4 
27B5 
27B6 


Operator 
code code operator location 
2B CF + 27A3 
2D C3 - 27A5 
2A C4 * 27A7 
2F C5 / 27A9 
5E C6 * 27AB 
3D CE = 27AD 
3E CC > 27AF 


priority operator 
06 - 

08 = 

08 / 

0A - 

02 OR 

03 AND 

05 <= 


location 
27B7 
27B8 
27B9 
27BA 
27BB 
27BC 


THE 'SCANNING FUNCTION' SUBROUTINE 


This subroutine is called by the 'scanning FN routine’ to evaluate a user defined function which occurs in a BASIC line. The subroutine 


can be considered in four stages: 


27D0 


27D9 


operator 
code code operator 
3C CD < 
C7 C9 <= 
C8 CA >= 
cg CB <> 
C5 C7 OR 
C6 C8 AND 
00 End marker 
priority operator 
05 >= 
05 <> 
05 > 
05 < 
05 = 
06 + 


The syntax of the FN statement is checked during syntax checking. 


During line execution, a search is made of the program area for a DEF FN statement, and the names of the functions are 


compared, until a match is found - or an error is reported. 
The arguments of the FN are evaluated by calls to SCANNING. 


The function itself is evaluated by calling SCANNING, which in turn calls LOOK-VARS and so the 'STACK FUNCTION 


ARGUMENT ' subroutine. 


S-FN-SBRN = CALL 


SF-BRKT-1 


SF-ARGMTS 


2530,SYNTAX-Z 
NZ,27F7,SF-RUN 
0020,NEXT-CHAR 


2C8D,ALPHA 
NC,1C8A,REPORT-C 
0020,NEXT-CHAR 
+24 

AF 
NZ,27D0,SF-BRKT-1 
0020,NEXT-CHAR 


+28 
NZ,27E6,SF-RPRT-C 
0020,NEXT-CHAR 
+29 
Z,27E9,SF-FLAG-6 


24FB,SCANNING 


0018,GET-CHAR 
+2C 
NZ,27E4,SF-BRKT-2 
0020,NEXT-CHAR 
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Unless syntax is being checked, 
a jump is made to SF-RUN. 

Get the first character of the 
name. 

If it is not alphabetic, then 
report the error. 

Get the next character. 

Is it a '$'? 

Save the zero flag on the stack. 
Jump if it was not a '$'. 

But get the next character if it 
was. 

If the character is not a'(', then 
report the error. 

Get the next character. 

Is it a ')'? 

Jump if it is; there are no argu- 
ments. 

Within the loop, call SCANNING 
to check the syntax of each 
argument and to insert floating- 
point numbers. 

Get the character which follows 
the argument; if it is not a',’ 
then jump - no more arguments. 
Get the first character in the 
next argument. 


JR 27D9,SF-ARGMTS Loop back to consider this 


argument. 
27E4 SF-BRKT-2 CP +29 Is the current character a ')'? 
27E6 SF-RPRT-C JP NZ,1C8A,REPORT-C Report the error if it is not. 
27E9 SF-FLAG-6 RST 0020,NEXT-CHAR Point to the next character in 
the BASIC line. 
LD HL.+5C3B This is FLAGS; assume a string- 
RES 6,(HL) valued function and reset bit 6 
of FLAGS. 
POP AF Restore the zero flag, jump if 
JR Z,27F4,SF-SYN-EN the FN is indeed string valued. 
SET 6,(HL) Otherwise, set bit 6 of FLAGS 
27F4 SF-SYN-EN JP 2712,S-CONT-2 Jump back to continue scanning 
the line. 


ii. During line execution, a search must first be made for a DEF FN statement. 


27F7 SF-RUN RST 0020,NEXT-CHAR Get the first character of the 
name. 
AND +DF Reset bit 5 for upper case. 
LD BA Copy the name to B. 
RST 0020,NEXT-CHAR Get the next character. 
SUB +24 Subtract 24 hex, the code for '$'. 
LD CA Copy the result to C (zero for a 
string, non-zero for a numerical 
function). 
JR NZ,2802,SF-ARGMT1 Jump if non-zero: numerical 
function. 
RST 0020,NEXT-CHAR Get the next character, the '('. 
2802 SF-ARGMT1 RST 0020,NEXT-CHAR Get 1st character of 1st argu- 
ment. 
PUSH HL Save the pointer to it on the 
stack. 
LD HL,(PROG) Point to the start of the 
program. 
DEC HL Go back one location. 
2808 SF-FND-DF LD DE,+00CE The search will be for 'DEF FN". 
PUSH BC Save the name and 'string 
status’. 
CALL 1D86,LOOK-PROG Search the program now. 
POP BC Restore the name and status. 
JR NC,2814,SF-CP-DEF Jump if a DEF FN statement 
found. 


REPORT P - FN without DEF. 


2812 REPORT-P RST 0008,ERROR-1 Call the error handling 
DEFB +18 routine. 


When a DEF FN statement is found, the name and status of the two functions are compared: if they do not match, the search is 
resumed. 


2814 SF-CP-DEF PUSH HL Save the pointer to the DEF FN 
character in case the search has 
to be resumed. 


CALL 28AB,FN-SKPOVR Get the name of the DEF FN 
function. 

AND +DF Reset bit 5 for upper case. 

CP B Does it match the FN name? 

JR NZ,2825,SF-NOT-FD Jump if it does not match. 

CALL 28AB,FN-SKPOVR Get the next character in the 
DEF FN. 

SUB +24 Subtract 24 hex, the code for 
'S' 

CP Cc Compare the status with that of 
FN. 
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JR Z,2831,SF-VALUES Jump if complete match now 


found. 
2825 SF-NOT-FD POP HL Restore the pointer to the 'DEF 

FN'. 

DEC HL Step back one location. 

LD DE,+0200 Use the search routine to find 

PUSH BC the end of the DEF FN state- 

CALL 198B,EACH-STMT ment, preparing for the next 

POP BC search; save the name and status 
meanwhile. 

JR 2808,SF-FND-DF Jump back for a further search. 


ii. The correct DEF FN statement has now been found. The arguments of the FN statement will be evaluated by repeated calls of 
SCANNING, and their 5 byte values (or parameters, for strings) will be inserted into the DEF FN statement in the spaces made there at 
syntax checking. HL will be used to point along the DEF FN statement (calling FN-SKPOVR as needed) while CH-ADD points along the 
FN statement (calling RST 0020, NEXT-CHAR, as needed). 


2831 SF-VALUES AND A If HL is now pointing to a'$', 
CALL Z,28AB,FN-SKPOVR move on to the '(’. 
POP DE Discard the pointer to 'DEF 
FN'. 
POP DE Get the pointer to the first 
LD (CH-ADD),DE argument of FN, and copy it to 
CH-ADD. 
CALL 28AB,FN-SKPOVR Move past the '(' now. 
PUSH HL Save this pointer on the stack. 
CP +29 Is it pointing to a')'? 
JR Z,2885,SF-R-BR-2 If so, jump: FN has no argu- 
ments. 
2843 SF-ARG-LP INC HL Point to the next code. 
LD A,(HL) Put the code into A. 
CP +0E Is it the 'number marker' code, 
OE hex? 
LD D,+40 Set bit 6 of D for a numerical 
argument. 
JR Z,2852,SF-ARG-VL Jump on zero: numerical 
argument. 
DEC HL Now ensure that HL is pointing 
to the '$' character (not e.g. to a 
CALL 28AB,FN-SKPOVR control code). 
INC HL HL now points to the 'number 
marker’. 
LD D,+00 Bit 6 of D is reset: string 
argument. 
2852 SF-ARG-VL INC HL Point to the 1st of the 5 bytes 
in DEF FN. 
PUSH HL Save this pointer on the stack. 
PUSH DE Save the 'string status’ of the 
argument. 
CALL 24FB, SCANNING Now evaluate the argument. 
POP AF Get the no./string flag into A. 
XOR (FLAGS) Test bit 6 of it against the result 
AND +40 of SCANNING. 
JR NZ,288B,REPORT-Q Give report Q if they did not 
match. 
POP HL Get the pointer to the first of 
EX DE,HL the 5 spaces in DEF FN into 
DE. 
LD HL,(STKEND) Point HL at STKEND. 
LD BC,+0005 BC will count 5 bytes to be 
moved. 
SBC HL,BC First, decrease STKEND by 5, 


139 


2885 SF-R-BR-2 


REPORT Q - Parameter error. 
288B REPORT-Q_ RST 
DEFB 


iv. Finally, the function itself is evaluated by calling SCANNING, after first setting DEFADD to hold the address of the arguments as they 
occur in the DEF FN statement. This ensures that LOOK-VARS, when called by SCANNING, will first search these arguments for the 


(STKEND),HL 


28AB,FN-SKPOVR 
+29 
Z,2885,SF-R-BR-2 


HL 
0018,GET-CHAR 


+2C 
NZ,288B,REPORT-Q 
0020,NEXT-CHAR 
HL 
28AB,FN-SKPOVR 
2843,SF-ARG-LP 

HL 

0018,GET-CHAR 


+29 
Z,288D,SF-VALUE 


0008,ERROR-1 
+19 


required values, before making a search of the variables area. 


288D SF-VALUE POP 


DE 


DE,HL 
(CH-ADD),HL 
HL,(DEFADD) 
(SP),HL 

(DEFADD),HL 


DE 
0020,NEXT-CHAR 
0020,NEXT-CHAR 


24FB,SCANNING 
HL 


(CH-ADD),HL 
HL 


(DEFADD),HL 
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so deleting the ‘last value’ from 
the stack. 

Copy the 5 bytes into the spaces 
in DEF FN. 

Point HL at the next code. 
Ensure that HL points to the 
character after the 5 bytes. 

Is it a ')'? 

Jump if it is: no more 
arguments in the DEF FN 
statement. 

It is a',": save the pointer to it. 
Get the character after the last 
argument that was evaluated 
from FN. 

If it is not a',’ jump: mis- 
matched arguments of FN and 
DEF FN. 

Point CH-ADD to the next 
argument of FN. 

Point HL to the ',' in DEF FN 
again. 

Move HL on to the next argu- 
ment in DEF FN. 

Jump back to consider this 
argument. 

Save the pointer to the ')' in 
DEF FN. 

Get the character after the last 
argument in FN. 

Is it a ')'? 

If so, jump to evaluate the 
function; but if not, give report 
Q. 


Call the error handling 
routine. 


Restore pointer to ')' in DEF 
FN. 

Get this pointer into HL. 

Insert it into CH-ADD. 

Get the old value of DEFADD. 
Stack it, and get the start 
address of the arguments area of 
DEF FN into DEFADD. 

Save address of ')' in FN. 
Move CH-ADD on past')' and 
'=' to the start of the expression 
for the function in DEF FN. 
Now evaluate the function. 
Restore the address of ')' in 
FN. 

Store it in CH-ADD. 

Restore original value of 
DEFADD. 

Put it back into DEFADD. 


RST 0020,NEXT-CHAR Get the next character in the 
BASIC line. 

JP 2712,S-CONT-2 Jump back to continue 
scanning. 


THE 'FUNCTION SKIPOVER' SUBROUTINE 
This subroutine is used by FN and by STK-F-ARG to move HL along the DEF FN statement while leaving CM-ADD undisturbed, as it 
points along the FN statement. 


28AB FN-SKPOVR_ INC HL Point to the next code in the 
statement. 
LD A,(HL) Copy the code to A. 
CP +21 Jump back to skip over it if it is 
JR C,28AB,FN-SKPOVR a control code or a space. 
RET Finished. 


THE 'LOOK-VARS' SUBROUTINE 

This subroutine is called whenever a search of the variables area or of the arguments of a DEF FN statement is required. The 
subroutine is entered with the system variable CH-ADD pointing to the first letter of the name of the variable whose location is being 
sought. The name will be in the program area or the work space. The subroutine initially builds up a discriminator byte, in the C register, 
that is based on the first letter of the variable's name. Bits 5 & 6 of this byte indicate the type of the variable that is being handled. 


The B register is used as a bit register to hold flags. 


28B2 LOOK-VARS_ SET 6,(FLAGS) Presume a numeric variable. 

RST 0018,GET-CHAR Get the first character into A. 

CALL 2C8D,ALPHA Is it alphabetic? 

JP NC,1C8A,REPORT-C Give an error report if it is not 
so. 

PUSH HL Save the pointer to the first 
letter. 

AND +1F Transfer bits 0 to 4 of the letter 

LD CA to the C register; bits 5 & 7 are 
always reset. 

RST 0020,NEXT-CHAR Get the 2nd character into A. 

PUSH HL Save this pointer also. 

CP +28 is the 2nd character a '('? 

JR Z,28EF,V-RUN/SYN Separate arrays of numbers. 

SET 6,C Now set bit 6. 

CP +24 Is the 2nd character a '$'? 

JR Z,28DE,V-STR-VAR Separate all the strings. 

SET 5,C Now set bit 5. 

CALL 2C88,ALPHANUM If the variable's name has only 

JR NC,28E3,V-TEST-FN one character then jump 
forward. 


Now find the end character of a name that has more than one character. 


28D4 V-CHAR CALL 2C88,ALPHANUM Is the character alphanumeric? 
JR NC,28EF,V-RUN/SYN Jump out of the loop when the 
end of the name is found. 
RES 6,C Mark the discriminator byte. 
RST 0020,NEXT-CHAR Get the next character. 
JR 28D4,V-CHAR Go back to test it. 


Simple strings and arrays of strings require that bit 6 of FLAGS is reset. 


28DE V-STR-VAR RST 0020,NEXT-CHAR Step CH-ADD past the '$'. 
RES 6,(FLAGS) Reset the bit 6 to indicate a 
string. 


lf DEFADD-hi is non-zero, indicating that a ‘function’ (a 'FN') is being evaluated, and if in 'run-time', a search will be made of the 
arguments in the DEF FN statement. 


28E3 V-TEST-FN LD A,(DEFADD-hi) Is DEFADD-hi zero? 
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AND A 


JR Z,28EF,V-RUN/SYN If so, jump forward. 
CALL 2530,SYNTAX-Z In 'run-time'? 
JP NZ,2951,STK-F-ARG If so, jump forward to search 


the DEF FN statement. 


Otherwise (or if the variable was not found in the DEF FN statement) a search of variables area will be made, unless syntax is being 
checked. 


28EF V-RUN/SYN LD B,C Copy the discriminator bytes to 
the B register. 

CALL 2530,SYNTAX-Z Jump forward if in 
JR NZ,28FD,V-RUN ‘run-time’. 
LD A,C Move the discriminator to A. 
AND +E0 Drop the character code part. 
SET 7,A Indicate syntax by setting bit 7. 
LD C,A Restore the discriminator. 
JR 2934,V-SYNTAX Jump forward to continue. 


A BASIC line is being executed so make a search of the variables area. 
28FD V-RUN LD HL,(VARS) Pick up the VARS pointer. 


Now enter a loop to consider the names of the existing variables. 


2900 V-EACH LD A,(HL) The 1st. letter of each 

existing variable. 

AND +7F Match on bits 0 to 6. 

JR Z,2932,V-80-BYTE Jump when the '80-byte' is 
reached. 

CP Cc The actual comparison. 

JR NZ,292A,V-NEXT Jump forward if the 1st 
characters do not match. 

RLA Rotate A leftwards and then 

ADD A,A double it to test bits 5 & 6. 

JP P,293F,V-FOUND-2 Strings and array variables. 

JR C,293F,V-FOUND-2 Simple numeric and FOR-NEXT 
variables. 


Long names are required to be matched fully. 


POP DE Take a copy of the pointer 

PUSH DE to the 2nd. character. 

PUSH HL Save the 1st letter pointer. 

2912 V-MATCHES_ INC HL Consider the next character. 
2913 V-SPACES LD A,(DE) Fetch each character in turn. 

INC DE Point to the next character. 

CP +20 Is the character a 'space'? 

JR Z,2913,V-SPACES Ignore the spaces. 

OR +20 Set bit 5 so as to match 
lower and upper case letters. 

CP (HL) Make the comparison. 

JR Z,2912,V-MATCHES Back for another character if 
it does match. 

OR +80 Will it match with bit 7 set? 

CP (HL) Try it. 

JR NZ,2929,V-GET-PTR Jump forward if the ‘last 
characters’ do not match. 

LD A,(DE) Check that the end of the 

CALL 2C88,ALPHANUM name has been reached before 

JR NC,293E,V-FOUND-1 jumping forward. 


In all cases where the names fail to match the HL register pair has to be made to point to the next variable in the variables area. 


2929 V-GET-PTR POP HL Fetch the pointer. 
292A V-NEXT PUSH BC Save B & C briefly. 
CALL 19B8,NEXT-ONE DE is made to point to the 


next variable. 
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EX DE,HL Switch the two pointers. 

POP BC Get B & C back. 

JR 2900,V-EACH Go around the loop again. 
Come here if no entry was found with the correct name. 


2932 V-80-BYTE SET 7,B Signal 'variable not found’. 


Come here if checking syntax. 


2934 V-SYNTAX = POP DE Drop the pointer to the 
2nd. character. 
RST 0018,GET-CHAR Fetch the present character. 
CP +28 Is ita'('? 
JR Z,2943,V-PASS Jump forward. 
SET 5,B Indicate not dealing with an 
JR 294B,V-END array and jump forward. 


Come here when an entry with the correct name was found. 


293E V-FOUND-1 POP DE Drop the saved variable pointer. 

293F V-FOUND-2 POP DE Drop the 2nd character pointer. 
POP DE Drop the first letter pointer. 
PUSH HL Save the 'last' letter pointer. 
RST 0018,GET-CHAR Fetch the current character. 


If the matching variable name has more than a single letter then the other characters must be passed-over. 


Note: This appears to have been done already at V-CHAR. 


2943 V-PASS CALL 2C88,ALPHANUM Is it alphanumeric? 
JR NC,294B,V-END Jump when the end of the name 
has been found. 
RST 0020,NEXT-CHAR Fetch the next character. 
JR 2943,V-PASS Go back and test it. 


The exit-parameters are now set. 


294B V-END POP HL HL holds the pointer to the 
letter of a short name or the 
‘last’ character of a long name. 


RL B Rotate the whole register. 
BIT 6,B Specify the state of bit 6. 
RET Finished. 


The exit-parameters for the subroutine can be summarised as follows: The system variable CH-ADD points to the first location after the 
name of the variable as it occurs in the BASIC line. 


When ‘variable not found’: 


i. | The carry flag is set. 
ii. | The zero flag is set only when the search was for an array variable. 
iii. | The HL register pair points to the first letter of the name of the variable as it occurs in the BASIC line. 


When ‘variable found': 


i. | The carry flag is reset. 

ii. | The zero flag is set for both simple string variables and all array variables. 

iii. | The HL register pair points to the letter of a 'short' name, or the last character of a 'long' name, of the existing entry that was 
found in the variables area. 


In all cases bits 5 & 6 of the C register indicate the type of variable being handled. Bit 7 is the complement of the SYNTAX/RUN flag. 
But only when the subroutine is used in ‘runtime’ will bits 0 to 4 hold the code of the variable's letter. 


In syntax time the return is always made with the carry flag reset. The zero flag is set for arrays and reset for all other variables, except 


that a simple string name incorrectly followed by a '$' sets the zero flag and, in the case of SAVE "name" DATA a§(), passes syntax as 
well. 
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THE 'STACK FUNCTION ARGUMENT' SUBROUTINE 

This subroutine is called by LOOK-VARS when DEFADD-hi is non-zero, to make a search of the arguments area of a DEF FN 
statement, before searching in the variables area. If the variable is found in the DEF FN statement, then the parameters of a string 
variable are stacked and a signal is given that there is no need to call STK/VAR. But it is left to SCANNING to stack the value of a 
numerical variable at 26DA in the usual way. 


2951 STK-F-ARG LD HL,(DEFADD) Point to the 1st character in the 
LD A,(HL) arguments area and put it into A. 
CP +29 Is ita'y'? 
JP Z,28EF,V-RUN/SYN Jump to search the variables 
area. 
295A SFA-LOOP LD A,(HL) Get the next argument in the 
loop. 
OR +60 Set bits 5 & 6, assuming a 
LD BA simple numeric variable; copy it 
to B. 
INC HL Point to the next code. 
LD A,(HL) Put it into the A register. 
CP +0E Is it the 'number marker’ code 
OE hex? 
JR Z,296B,SFA-CP-VR Jump if so: numeric variable. 
DEC HL Ensure that HL points to the 
CALL 28AB,FN-SKPOVR character, not to a space or 
control code. 
INC HL HL now points to the ‘number 
marker’. 
RES 5,B Reset bit 5 of B: string variable. 
296B SFA-CP-VR_ LD A,B Get the variable name into A. 
CP Cc Is it the one we are looking for? 
JR Z,2981,SFA-MATCH Jump if it matches. 
INC HL Now pass over the 5 bytes of 
INC HL the floating-point number or 
INC HL string parameters to get to the 
INC HL next argument. 
INC HL 
CALL 28AB,FN-SKPOVR Pass on to the next character. 


A match has been found. 


CP +29 Is ita'y'? 

JP Z,28EF,V-RUN/SYN If so, jump to search the 
variables area. 

CALL 28AB,FN-SKPOVR Point to the next argument. 


JR 295A,SFA-LOOP 


Jump back to consider it. 


The parameters of a string variable are stacked, avoiding the need to call the STK-VAR subroutine. 


2981 SFA-MATCH BIT 5,C Test for a numeric variable. 
JR NZ,2991,SFA-END Jump if the variable is numeric; 
SCANNING will stack it. 
INC HL Point to the first of the 5 
bytes to be stacked. 
LD DE,(STKEND) Point DE to STKEND. 
CALL 33C0,MOVE-FP Stack the 5 bytes. 
EX DE,HL Point HL to the new position 
LD (STKEND),HL of STKEND, and reset the 
system variable. 
2991 SFA-END POP DE Discard the LOOK-VARS 
POP DE pointers (2nd & 1st character 
pointers). 
XOR A Return from the search with 
INC A both the carry and zero flags 
reset - signalling that a call 
STK-VAR is not required. 
RET Finished. 
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THE 'STK-VAR' SUBROUTINE 

This subroutine is usually used either to find the parameters that define an existing string entry in the variables area or to return in the 
HL register pair the base address of a particular element or an array of numbers. When called from DIM the subroutine only checks the 
syntax of the BASIC statement. 


Note that the parameters that define a string may be altered by calling SLICING if this should be specified. 


Initially the A and the B registers are cleared and bit 7 of the C register is tested to determine whether syntax is being checked. 


2996 STK-VAR XOR A Clear the array flag. 
LD BA Clear the B register for later. 
BIT 7,C Jump forward if syntax is 
JR NZ,29E7,SV-COUNT being checked. 


Next, simple strings are separated from array variables. 


BIT 7,(HL) Jump forward if dealing with 
JR NZ,29AE,SV-ARRAYS an array variable. 


The parameters for a simple string are readily found. 


INC A Signal 'a simple string’. 
29A1 SV-SIMPLE$ INC HL Move along the entry. 

LD C,(HL) Pick up the low length counter. 

INC HL Advance the pointer. 

LD B,(HL) Pick up the high length 
pointer. 

INC HL Advance the pointer. 

EX DE,HL Transfer the pointer to the 
actual string. 

CALL 2AB2,STK-STORE Pass these parameters to the 
calculator stack. 

RST 0018,GET-CHAR Fetch the present character 
and jump forward to see if a 

JP 2A49,SV-SLICE? ‘slice’ is required. 


The base address of an element in an array is now found. Initially the 'number of dimensions' is collected. 


29AE SV-ARRAYS INC HL Step past the length bytes. 
INC HL 
INC HL 
LD B,(HL) Collect the 'number of 
dimensions’. 
BIT 6,C Jump forward if handling an 
JR Z,29C0,SV-PTR array of numbers. 


If an array of strings has its 'number of dimensions' equal to '1' then such an array can be handled as a simple string. 
DEC B Decrease the 'number of 
JR Z,29A1,SV-SIMPLE$ dimensions' and jump if the 
number is now zero. 


Next a check is made to ensure that in the BASIC line the variable is followed by a subscript. 


EX DE,HL Save the pointer in DE. 

RST 0018,GET-CHAR Get the present character. 
CP +28 Is ita'('? 

JR NZ,2A20,REPORT-3 Report the error if it is not so. 
EX DE,HL Restore the pointer. 


For both numeric arrays and arrays of strings the variable pointer is transferred to the DE register pair before the subscript is evaluated. 


29C0 SV-PTR EX DE,HL Pass the pointer to DE. 
JR 29E7,SV-COUNT Jump forward. 
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The following loop is used to find the parameters of a specified element within an array. The loop is entered at the mid-point - SV- 
COUNT -, where the element count is set to zero. 

The loop is accessed 'B' times, this being, for a numeric array, equal to the number of dimensions that are being used, but for an array 
of strings 'B' is one less than the number of dimensions in use as the last subscript is used to specify a ‘slice’ of the string. 


29C3 SV-COMMA PUSH HL Save the counter. 
RST 0018,GET-CHAR Get the present character. 
POP HL Restore the counter. 
CP +2C Is the present character a ','? 
JR Z,29EA,SV-LOOP Jump forward to consider 

another subscript. 

BIT 7,C If a line is being executed 
JR Z,2A20,REPORT-3 then there is an error. 
BIT 6,C Jump forward if dealing with 
JR NZ,29D8,SV-CLOSE an array of strings. 
CP +29 Is the present character a ')'? 
JR NZ,2A12,SV-RPT-C Report an error if not so. 
RST 0020,NEXT-CHAR Advance CH-ADD. 
RET Return as the syntax is correct. 


For an array of strings the present subscript may represent a 'slice', or the subscript for a ‘slice’ may yet be present in the BASIC line. 


29D8 SV-CLOSE CP +29 Is the present character a ')'? 
JR Z,2A48,SV-DIM Jump forward and check 
whether there is another sub- 
script. 
CP +CC Is the present character a 'TO'? 
JR NZ,2A12,SV-RPT-C It must not be otherwise. 
29E0 SV-CH-ADD RST 0018,GET-CHAR Get the present character. 
DEC HL Point to the preceding 
LD (CH-ADD),HL character and set CH-ADD. 
JR 2A45,SV-SLICE Evaluate the 'slice’. 
Enter the loop here. 
29E7 SV-COUNT LD HL,+0000 Set the counter to zero. 
29EA SV-LOOP PUSH HL Save the counter briefly. 
RST 0020,NEXT-CHAR Advance CH-ADD. 
POP HL Restore the counter. 
LD A,C Fetch the discriminator byte. 
CP +C0 Jump unless checking the 
JR NZ,29FB,SV-MULT syntax for an array of strings. 
RST 0018,GET-CHAR Get the present character. 
CP +29 Is ita'y'? 
JR Z,2A48,SV-DIM Jump forward as finished 
counting elements. 
CP +CC Is to 'TO'? 
JR Z,29E0,SV-CH-ADD Jump back if dealing with a 
‘slice’. 
29FB SV-MULT PUSH BC Save the dimension-number 
counter and the discriminator 
byte. 
PUSH HL Save the element-counter. 
CALL 2AEE,DE,(DE+1) Get a dimension-size Into DE. 
EX (SP),HL The counter moves to HL and 
the variable pointer is stacked. 
EX DE,HL The counter moves to DE and 
the dimension-size to HL. 
CALL 2ACC,INT-EXP1 Evaluate the next subscript. 
JR C,2A20,REPORT-3 Give an error if out of range. 
DEC BC The result of the evaluation is 
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decremented as the counter is to 


count the elements occurring 
before the specified element. 


CALL 2AF4,GET-HL*DE Multiply the counter by the 
dimension-size. 

ADD HL,BC Add the result of 'INT-EXP1' 
to the present counter. 

POP DE Fetch the variable pointer. 

POP BC Fetch the dimension-number 
and the discriminator byte. 

DJNZ 29C3,SV-COMMA Keep going round the loop 


until 'B' equals zero. 


The SYNTAX/RUN flag is checked before arrays of strings are separated from arrays of numbers. 


BIT 7,C Report an error if checking 
2A12 SV-RPT-C JR NZ,2A7A,SL-RPT-C syntax at this point. 

PUSH HL Save the counter. 

BIT 6,C Jump forward if handling 

JR NZ,2A2C,SV-ELEM$ an array of strings. 


When dealing with an array of numbers the present character must be a')'. 


LD B,D Transfer the variable pointer 
LD C.E to the BC register pair. 

RST 0018,GET-CHAR Fetch the present character. 
CP +29 Is ita')'? 

JR Z,2A22,SV-NUMBER Jump past the error report 


unless it is needed. 
Report 3 - Subscript out of range 


2A20 REPORT-3 RST 0008,ERROR-1 Call the error handling 
DEFB +02 routine. 


The address of the location before the actual floating-point form can now be calculated. 


2A22 SV-NUMBER RST 0020,NEXT-CHAR Advance CH-ADD. 

POP HL Fetch the counter. 

LD DE,+0005 There are 5 bytes to each 
element in an array of numbers. 

CALL 2AF4,GET-HL*DE Compute the total number of 
bytes before the required 
element. 

ADD HL,BC Make HL point to the location 
before the required element. 

RET Return with this address. 


When dealing with an array of strings the length of an element is given by the last 'dimension-size'. The appropriate parameters are 
calculated and then passed to the calculator stack. 


2A2C SV-ELEM$ CALL 2AEE,DE,(DE+1) Fetch the last dimension-size. 

EX (SP),HL The variable printer goes on the 
stack and the counter to HL. 

CALL 2AF4,GET-HL*DE Multiply ‘counter’ by 
‘dimension-size'. 

POP BC Fetch the variable pointer. 

ADD HL,BC This gives HL pointing to the 
location before the string. 

INC HL So point to the actual 'start’. 

LD B,D Transfer the last dimension- 

LD CE size to BC to form the ‘length’. 

EX DE,HL Move the 'start' to DE. 

CALL 2AB1,STK-ST-0 Pass these parameters to the 


calculator stack. Note: The first 
parameter is zero indicating a 
string from an ‘array of strings' 
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and hence the existing entry is 
not to be reclaimed. 


There are three possible forms of the last subscript. The first is illustrated by - A$(2,4 TO 8) -, the second by - A$(2)(4 TO 8) - and the 
third by - A$(2) - which is the default form and indicates that the whole string is required. 


RST 0018,GET-CHAR Get the present character. 
CP +29 Is it a ')'? 

JR Z,2A48,SV-DIM Jump if it is so. 

CP +2C Is ita','? 

JR NZ,2A20,REPORT-3 Report the error if not so. 


2A45 SV-SLICE CALL 2A52,SLICING Use SLICING to modify the 


set of parameters. 


2A48 SV-DIM RST 0020,NEXT-CHAR Fetch the next character. 
2A49 SV-SLICE? CP +28 Is Ita'('? 
JR Z,2A45,SV-SLICE Jump back if there is a 


'slice' to be considered. 


When finished considering the last subscript a return can be made. 
RES 6,(FLAGS) Signal - string result. 
RET Return with the parameters of 
the required string forming a 
‘last value' on the calculator 
stack. 


THE 'SLICING' SUBROUTINE 


The present string can be sliced using this subroutine. The subroutine is entered with the parameters of the string being present on the 
top of the calculator stack and in the registers A, B, C, D & E. Initially the SYNTAX/RUN flag is tested and the parameters of the string 


are fetched only if a line is being executed. 


2A52 SLICING CALL 
CALL 


2530,SYNTAX-Z 


NZ,2BF1,STK-FETCH 


The possibility of the 'slice' being '()' has to be considered. 


Check the flag. 
Take the parameters off the 
stack in ‘run-time’. 


RST 0020,NEXT-CHAR Get the next character. 
CP +29 Is ita ')'? 
JR Z,2AAD,SL-STORE Jump forward if it is so. 


Before proceeding the registers are manipulated as follows: 


PUSH DE The 'start’ goes on the 
machine stack. 

XOR A The A register is cleared 

PUSH AF and saved. 

PUSH BC The ‘length’ is saved briefly. 

LD DE,+0001 Presume that the 'slice' is to 
begin with the first character. 

RST 0018,GET-CHAR Get the first character. 

POP HL Pass the ‘length’ to HL. 


The first parameter of the ‘slice’ is now evaluated. 


CP +CC Is the present character a 
'TO'? 

JR Z,2A81,SL-SECOND The first parameter, by default, 
will be '1' if the jump is taken. 

POP AF At this stage A is zero. 

CALL 2ACD,INT-EXP2 BC is made to hold the first 
parameter. A will hold +FF if 
there has been an ‘out of range’ 
error. 

PUSH AF Save the value anyway. 

LD DB Transfer the first parameter 

LD E,C to DE. 

PUSH HL Save the ‘length’ briefly. 


2A7TA SL-RPT-C JP 


0018,GET-CHAR 
HL 

+CC 
Z,2A81,SL-SECOND 


NZ,1C8A,REPORT-C 


Get the present character. 

Restore the ‘length’. 

Is the present character a 'TO'? 
Jump forward to consider the 
second parameter if it is so; 

CP +29 otherwise show that there is 
a closing bracket. 


At this point a 'slice' of a single character has been identified. e.g. - A$(4). 


H,D 
LE 
2A94,SL-DEFINE 


The second parameter of a 'slice’ is now evaluated. 


2A81 SL-SECOND PUSH 
RST 


The 'new' parameters are now defined. 
2A94 SL-DEFINE POP 

EX 

ADD 

DEC 


EX 


2AA8 SL-OVER POP 


HL 
0020,NEXT-CHAR 
HL 

+29 
Z,2A94,SL-DEFINE 


AF 


2ACD,INT-EXP2 
AF 
0018,GET-CHAR 
H,B 

L,c 


+29 
NZ,2A7A,SL-RPT-C 


AF 
(SP),HL 
HL,DE 

HL 
(SP),HL 
A 

HL,DE 
BC,+0000 
C,2AA8,SL-OVER 
HL 

A 


M,2A20,REPORT-3 


6,(FLAGS) 


The last character of the 'slice'’ 
is also the first character. 
Jump forward. 


Save the ‘length’ briefly. 

Get the next character. 
Restore the ‘length’. 

Is the present character a 
"9 

Jump if there is nota 
second parameter. 

If the first parameter was in 
range A will hold zero; 
otherwise +FF. 

Make BC hold the second 
parameter. 

Save the ‘error register’. 

Get the present character. 
Pass the result obtained from 
INT-EXP2 to the HL register 
pair. 

Check that there is a closing 
bracket now. 


Fetch the ‘error register’. 

The second parameter goes on 
the stack and the 'start' goes to 
HL. 

The first parameter is added 

to the ‘start’. 

Go back a location to get it 
correct. 

The 'new start’ goes on the 
stack and the second parameter 
goes to HL. 

Subtract the first parameters 
from the second to find the 
length of the ‘slice’. 

Initialise the 'new length’. 

A negative 'slice' is a ‘null 
string’ rather than an error 
condition. (See manual.) 

Allow for the inclusive byte. 
Only now test the ‘error 
register’. 

Jump if either parameter was 
out of range for the string. 
Transfer the 'new length' 

to BC. 

Get the 'new start’. 

Ensure that a string is still 
indicated. 


2AAD SL-STORE CALL 2530,SYNTAX-Z Return at this point if 
RET Z checking syntax; otherwise 
continue into the STK-STORE 
subroutine. 


THE 'STK-STORE' SUBROUTINE 

This subroutine passes the values held in the A, B, C, D & E registers to the calculator stack. The stack thereby grows in size by 5 
bytes with every call to this subroutine. 

The subroutine is normally used to transfer the parameters of strings but it is also used by STACK-BC and LOG (24A) to transfer 'small 
integers' to the stack. 

Note that when storing the parameters of a string the first value stored (coming from the A register) will be a zero if the string comes 
from an array of strings or is a 'slice' of a string. The value will be '1' for a complete simple string. This 'flag' is used in the 'LET' 
command routine when the '1' signals that the old copy of the string is to be 'reclaimed’. 


2AB1 STK-ST-0 XOR A Signal - a string from an 
array of strings or a 'sliced' 
string. 
2AB2 STK-STO-$ RES 6,(FLAGS) Ensure the flag Indicates a 
string result. 
2AB6 STK-STORE PUSH BC Save B & C briefly. 
CALL 33A9, TEST-5-SP Is there room for 5 bytes? 


Do not return here unless there 
is room available. 


POP BC Restore B & C. 

LD HL,(STKEND) Fetch the address of the first 
location above the present 
stack. 

LD (HL),A Transfer the first byte. 

INC HL Step on. 

LD (HL),E Transfer the second and 

INC HL third bytes; for a string 

LD (HL),D these will be the ‘start’. 

INC HL Step on. 

LD (HL),C Transfer the fourth and 

INC HL fifth bytes; for a string 

LD (HL),B these will be the ‘length’. 

INC HL Step on so as to point to the 
location above the stack. 

LD (STKEND),HL Save this address In STKEND 

RET and return. 


THE 'INT-EXP' SUBROUTINE 

This subroutine returns the result of evaluating the 'next expression’ as an integer value held in the BC register pair. The subroutine 
also tests this result against a limit-value supplied in the HL register pair. The carry flag becomes set if there is an 'out of range’ error. 
The A register is used as an ‘error register’ and holds +00 of there is no 'previous error' and +FF if there has been one. 


2ACC INT-EXP1 XOR A Clear the ‘error register’. 
2ACD INT-EXP2 PUSH DE Save both the DE & HL 
PUSH HL register pairs throughout. 
PUSH AF Save the ‘error register’ 
briefly. 
CALL 1C82,EXPT-1NUM The 'next expression’ is 


evaluated to give a ‘last value’ 
on the calculator stack. 
POP AF Restore the ‘error register’. 
CALL 2530,SYNTAX-Z Jump forward if checking 
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JR Z,2AEB,I-RESTORE syntax. 


PUSH AF Save the error register again. 

CALL 1E99,FIND-INT2 The ‘last value’ is 
compressed Into BC. 

POP DE Error register to D. 

LD A,B A 'next expression’ that 

OR Cc gives zero is always in 

SCF error so jump forward if it 

JR Z,2AE8,I-CARRY is So. 

POP HL Take a copy of the 

PUSH HL limit-value. This will be a 


‘dimension-size' a 'DIM-limit' 
or a ‘string length’. 


AND A Now compare the result of 
SBC HL,BC evaluating the expression against 
the limit. 


The state of the carry flag and the value held in the D register are now manipulated so as to give the appropriate value for the ‘error 
register’. 


2AE8 I-CARRY LD A,D Fetch the ‘old error value’ 
SBC A,+00 Form the 'new error value’; 
+00 if no error at anytime/ 
+FF or less if an ‘out of 
range’ error on this pass or on 
previous ones. 


Restore the registers before returning. 


2AEB I-RESTORE POP HL Restore HL & DE. 
POP DE 
RET Return; ‘error register’ is the 
A register. 


THE 'DE,(DE+1)' SUBROUTINE 
This subroutine performs the construction - LD DE,(DE+1) - and returns HL pointing to 'DE+2". 


2AEE DE,(DE+1) EX DE,HL Use HL for the construction. 
INC HL Point to 'DE+1'. 
LD E,(HL) In effect - LD E,(DE+1). 
INC HL Point to 'DE+2". 
LD D,(HL) In effect - LD D,(DE+2). 
RET Finished. 


THE 'GET-HL*DE' SUBROUTINE 

Unless syntax is being checked this subroutine calls 'HL=HL*DE' which performs the implied construction. 

Overflow of the 16 bits available in the HL register pair gives the report 'out of memory’. This is not exactly the true situation but it 
implies that the memory is not large enough for the task envisaged by the programmer. 


2AF4 GET-HL*DE CALL 2530,SYNTAX-Z Return directly if syntax is 
RET Z being checked. 
CALL 30A9,HL=HL*DE Perform the multiplication. 
JP C,1F15,REPORT-4 Report ‘Out of memory’. 
RET Finished. 


THE 'LET' COMMAND ROUTINE 

This is the actual assignment routine for the LET, READ and INPUT commands. 

When the destination variable is a 'newly declared variable’ then DEST will point to the first letter of the variable'’s name as it occurs in 
the BASIC line. Bit 1 of FLAGX will be set. 

However if the destination variable 'exists already' then bit 1 of FLAGX will be reset and DEST will point for a numeric variable to the 
location before the five bytes of the 
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‘old number’; and for a string variable to the first location of the ‘old string’. The use of DEST in this manner applies to simple variables 
and to elements of arrays. 

Bit 0 of FLAGX is set if the destination variable is a ‘complete’ simple string variable. (Signalling - delete the old copy.) 

Initially the current value of DEST is collected and bit 1 of FLAGS tested. 


2AFF LET LD HL,(DEST) Fetch the present address in 
DEST. 
BIT 1,(FLAGX) Jump if handling a variable 
JR Z,2B66,L-EXISTS that ‘exists already’. 


A 'newly declared variable’ is being used. So first the length of its name is found. 


LD BC,+0005 Presume dealing with a 
numeric variable - 5 bytes. 


Enter a loop to deal with the characters of a long name. Any spaces or colour codes in the name are ignored. 


2B0B L-EACH-CH INC BC Add '1' to the counter for 
each character of a name. 
2B0C L-NO-SP INC HL Move along the variable's name. 
LD A,(HL) Fetch the 'present code’. 
CP +20 Jump back if it is a ‘space’; 
JR Z,2B0C,L-NO-SP thereby Ignoring spaces. 
JR NC,2B1F,L-TEST-CH Jump forward if the code is 
+21 to +FF. 
CP +10 Accept, as a final code, those 
JR C,2B29,L-SPACES in the range +00 to +0F. 
CP +16 Also accept the range 
JR NC,2B29,L-SPACES +16 to +1F. 
INC HL Step past the control code 
after any of INK to OVER. 
JR 2B0C,L-NO-SP Jump back as these control 


codes are treated as spaces. 


Separate 'numeric' and 'string' names. 


2B1F L-TEST -CH CALL 2C88,ALPHANUM Is the code alphanumeric? 
JR C,2B0B,L-EACH-CH If It is so then accept it as 
a character of a ‘long’ name. 
CP +24 Is the present code a 'S'? 
JP Z,2BC0,L-NEWS Jump forward as handling a 


‘newly declared’ simple string. 


The 'newly declared numeric variable’ presently being handled will require 'BC' spaces in the variables area for its name and its value. 
The room is made available and the name of the variable is copied over with the characters being 'marked' as required. 


2B29 L-SPACES LD A,C Copy the 'length' to A. 
LD HL,(E-LINE) Make HL point to the 
DEC HL '80-byte' at the end of the 
variables area. 
CALL 1655,MAKE-ROOM Now open up the variables area. 


Note: In effect 'BC' spaces are 
made before the displaced 


'80-byte'. 
INC HL Point to the first 'new' byte. 
INC HL Make DE point to the second 
EX DE,HL ‘new' byte. 
PUSH DE Save this pointer. 
LD HL,(DEST) Fetch the pointer to the 
start of the name. 
DEC DE Make DE point to the first 
‘new' byte. 
SUB +06 Make B hold the 'number of 
LD BA extra letters’ that are found 


in a ‘long name’. 
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JR Z,2B4F,L-SINGLE Jump forward if dealing with 
a variable with a 'short name’. 


The ‘extra’ codes of a long name are passed to the variables area. 


2B3E L-CHAR INC HL Point to each ‘extra’ code. 

LD A,(HL) Fetch the code. 

CP +21 Accept codes from +21 to +FF; 

JR C,2B3E,L-CHAR ignore codes +00 to +20. 

OR +20 Set bit 5, as for lower case 
letters. 

INC DE Transfer the codes in turn 

LD (DE),A to the 2nd 'new' byte 
onwards. 

DJNZ 2B3E,L-CHAR Go round the loop for all the 


‘extra’ codes. 
The last code of a 'long' name has to be ORed with +80. 


OR +80 Mark the code as required 
LD (DE),A and overwrite the last code. 


The first letter of the name of the variable being handled is now considered. 


LD A,+CO Prepare the mark the letter 
of a ‘long’ name. 
2B4F L-SINGLE LD HL,(DEST) Fetch the pointer to the letter. 
XOR (HL) A holds +00 for a ‘short’ 
name and +C0 for a ‘long’ name. 
OR +20 Set bit 5, as for lower case 
letters. 
POP HL Drop the pointer now. 


The subroutine L-FIRST is now called to enter the ‘letter’ into its appropriate location. 


CALL 2BEA,L-FIRST Enter the letter and return 
with HL pointing to 'new 
80-byte'. 


The ‘last value’ can now be transferred to the variables area. Note that at this point HL always points to the location after the five 
locations allotted to the number. 
A'RST 0028' instruction is used to call the CALCULATOR and the ‘last value’ is deleted. However this value is not overwritten. 


2B59 L-NUMERIC PUSH HL Save the ‘destination’ pointer. 
RST 0028,FP-CALC Use the calculator. 
DEFB +02,delete This moves STKEND back five 
DEFB +38,end-calc bytes. 
POP HL Restore the pointer. 
LD BC,+0005 Give the number a ‘length' 
of five bytes. 
AND A Make HL point to the first 
SBC HL,BC of the five locations and 
JR 2BA6,L-ENTER jump forward to make the 


actual transfer. 


Come here if considering a variable that ‘exists already’. First bit 6 of FLAGS is tested so as to separate numeric variables from string 
or array of string variables. 


2B66 L-EXISTS BIT 6,(FLAGS) Jump forward if handling any 
JR Z,2B72,L-DELETES kind of string variable. 


For numeric variables the 'new' number overwrites the 'old' number. So first HL has to be made to point to the location after the five 
bytes of the existing entry. At present HL points to the location before the five bytes. 


LD DE,+0006 The five bytes of a number +'1'. 

ADD HL,DE HL now points ‘after’. 

JR 2B59,L-NUMERIC Jump back to make the actual 
transfer. 


153 


The parameters of the string variable are fetched and complete simple strings separated from 'sliced' strings and array strings. 


2B72 L-DELETE$ LD HL,(DEST) Fetch the ‘start’. Note: This 
line is redundant. 
LD BC,(STRLEN) Fetch the ‘length’. 
BIT 0,(FLAGX) Jump if dealing with a complete 
JR NZ,2BAF,L-ADD$ simple string; the old string will 
need to be 'deleted' in this case 
only. 


When dealing with a 'slice' of an existing simple string, a ‘slice’ of a string from an array of strings or a complete string from an array of 
strings there are two distinct stages involved. The first is to build up the 'new' string in the work space, lengthening or shortening it as 
required. The second stage is then to copy the 'new' string to its allotted room in the variables area. 

However do nothing if the string has no ‘length’. 


LD A,B Return if the string is 
OR Cc a null string. 
RET Z 


Then make the required number of spaces available in the work space. 


PUSH HL Save the 'start' (DEST). 

RST 0030,BC-SPACES Make the necessary amount of 
room in the work space. 

PUSH DE Save the pointer to the 
first location. 

PUSH BC Save the ‘length’ for use later 
on. 

LD D,H Make DE point to the last 

LD E,L location. 

INC HL Make HL point 'one past’ the 
new locations. 

LD (HL),+20 Enter a 'space' character. 

LDDR Copy this character into all the 


new locations. Finish with HL 
pointing to the first new 
location. 


The parameters of the string being handled are now fetched from the calculator stack. 


PUSH HL Save the pointer briefly. 
CALL 2BF1,STK-FETCH Fetch the 'new' parameters. 
POP HL Restore the pointer. 


Note: At this point the required amount of room has been made available in the work space for the ‘variable in assignment’. e.g. For 
statement - LET A$(4 to 8)="abcdefg" - five locations have been made. 

The parameters fetched above as a ‘last value' represent the string that is to be copied into the new locations with Procrustean 
lengthening or shortening as required. 

The length of the 'new' string is compared to the length of the room made available for it. 


EX (SP),HL ‘Length’ of new area to HL. 
‘Pointer’ to new area to stack. 

AND A Compare the two 'lengths' 
SBC HL,BC and jump forward if the 'new' 
ADD HL,BC string will fit into the room. 
JR NC,2B9B,L-LENGTH i.e. No shortening required. 
LD B,H However modify the 'new' 
LD C,L length if it is too long. 

2B9B L-LENGTH EX (SP),HL ‘Length’ of new area to stack. 


‘Pointer’ to new area to HL. 


As long as the new string is not a ‘null string’ it is copied into the work space. Procrustean lengthening is achieved automatically if the 
‘new’ string is shorter than the room available for it. 
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EX DE,HL ‘Start’ of new string to HL. 
‘Pointer’ to new area to DE. 


LD A,B Jump forward if the 

OR Cc ‘new' string is a ‘null’ 

JR Z,2BA3,L-IN-W/S string. 

LDIR Otherwise move the 'new' 


string to the work space. 


The values that have been saved on the machine stack are restored. 


2BA3 L-IN-W/S POP BC ‘Length’ of new area. 
POP DE ‘Pointer’ to new area. 
POP HL The start - the pointer 


to the ‘variable in assignment’ 
which was originally in DEST. 
L-ENTER is now used to pass 
the 'new' string to the variables 
area. 


THE 'L-ENTER' SUBROUTINE 

This short subroutine is used to pass either a numeric value, from the calculator stack, or a string, from the work space, to its 
appropriate position in the variables area. 

The subroutine is therefore used for all except 'newly declared’ simple strings and 'complete & existing’ simple strings. 


2BA6 L-ENTER EX DE,HL Change the pointers over. 

LD A,B Check once again that the 

OR Cc length is not zero. 

RET Z 

PUSH DE Save the destination pointer. 

LDIR Move the numeric value or the 
string 

POP HL Return with the HL register 

RET pair pointing to the first byte 
of the numeric value or the 
string. 


THE LET SUBROUTINE CONTINUES HERE 
When handling a ‘complete & existing’ simple string the new string is entered as if it were a 'newly declared’ simple string before the 
existing version is ‘reclaimed’. 


2BAF L-ADD$ DEC HL Make HL point to the letter 

DEC HL of the variable's name. 

DEC HL i.e. DEST - 3. 

LD A,(HL) Pick up the letter. 

PUSH HL Save the pointer to the ‘existing 
version’. 

PUSH BC Save the ‘length’ of the 
‘existing string’. 

CALL 2BC6,L-STRING Use L-STRING to add the new 
string to the variables area. 

POP BC Restore the ‘length’. 

POP HL Restore the pointer. 

INC BC Allow one byte for the letter 

INC BC and two bytes for the length. 

INC BC 

JP 19E8,RECLAIM-2 Exit by jumping to RECLAIM-2 


which will reclaim the whole 
of the existing version. 


‘Newly declared’ simple strings are handled as follows: 


2BCO L-NEW$ LD A,+DF Prepare for the marking of 
the variable's letter. 
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LD HL,(DEST) Fetch the pointer to the 
letter. 

AND (HL) Mark the letter as required. 
L-STRING is now used to add 
the new string to the variables 
area. 


THE 'L-STRING' SUBROUTINE 


The parameters of the 'new' string are fetched, sufficient room is made available for it and the string is then transferred. 


2BC6 L-STRING PUSH AF Save the variable's letter 

CALL 2BF1,STK-FETCH Fetch the ‘start’ and the 
‘length’ of the 'new' string. 

EX DE,HL Move the 'start' to HL. 

ADD HL,BC Make HL point 'one-past’ the 
string. 

PUSH BC Save the ‘length’. 

DEC HL Make HL point to the end of 
the string. 

LD (DEST),HL Save the pointer briefly. 

INC BC Allow one byte for the letter 

INC BC and two bytes for the length. 

INC BC 

LD HL,(E-LINE) Make HL point to the 

DEC HL '80-byte' at the end of the 
variables area. 

CALL 1655,MAKE-ROOM Now open up the variables area. 


Note: In effect 'BC' spaces are 
made before the displaced 


'80-byte'. 

LD HL,(DEST) Restore the pointer to the 
end of the 'new' string. 

POP BC Make a copy of the length 

PUSH BC of the 'new' string. 

INC BC Add one to the length in case 
the 'new' string is a ‘null’ 
string. 

LDDR Now copy the 'new' string + 
one byte. 

EX DE,HL Make HL point to the byte 

INC HL that is to hold the high-length. 

POP BC Fetch the ‘length’. 

LD (HL),B Enter the high-length. 

DEC HL Back one. 

LD (HL),C Enter the low-length. 

POP AF Fetch the variable’s letter. 


THE 'L-FIRST' SUBROUTINE 


This subroutine is entered with the letter of the variable, suitably marked, in the A register. The letter overwrites the 'old 80-byte' in the 
variables area. The subroutine returns with the HL register pair pointing to the 'new 80-byte’. 


2BEA L-FIRST DEC HL Make HL point to the 'old 

80-byte’. 

LD (HL),A It is overwritten with the 
letter of the variable. 

LD HL,(E-LINE) Make HL point to the 'new 
80-byte’. 

DEC HL Finished with all the 

RET ‘newly declared variables’. 
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THE 'STK-FETCH' SUBROUTINE 


This important subroutine collects the ‘last value’ from the calculator stack. The five bytes can be either a floating-point number, in 
‘short’ or ‘long’ form, or set of parameters that define a string. 


2BF1 STK-FETCH LD HL,(STKEND) Get STKEND. 
DEC HL Back one; 
LD B,(HL) The fifth value. 
DEC HL Back one. 
LD C,(HL) The fourth one. 
DEC HL Back one. 
LD D,(HL) The third value. 
DEC HL Back one. 
LD E,(HL) The second value. 
DEC HL Back one. 
LD A,(HL) The first value. 
LD (STKEND),HL Reset STKEND to its new 

position 

RET Finished. 


THE 'DIM' COMMAND ROUTINE 


This routine establishes new arrays in the variables area. The routine starts by searching the existing variables area to determine 
whether there is an existing array with the same name. If such an array is found then it is 'reclaimed' before the new array is 


established. 


A new array will have all its elements set to zero, if it is a numeric array, or to 'spaces:’, if it is an array of strings. 


2C02 DIM CALL 
2C05 D-RPORT-C JP 


28B2,LOOK-VARS 


NZ,1C8A,REPORT-C 


Search the variables area. 
Give report C as there has been 
an error. 


CALL 2530,SYNTAX-Z Jump forward if in 

JR NZ,2C15,D-RUN ‘run time’. 

RES 6,C Test the syntax for string arrays 
as if they were numeric. 

CALL 2996,STK-VAR Check the syntax of the 
parenthesised expression. 

CALL 1BEE,CHECK-END Move on to consider the 


An ‘existing array’ is reclaimed. 


next statement as the syntax 
was satisfactory. 


2015 D-RUN JR C,2C1F,D-LETTER Jump forward if there is no 
‘existing array’. 
PUSH BC Save the discriminator byte. 
CALL 19B8,NEXT-ONE Find the start of the next 
variable 
CALL 19E8,RECLAIM-2 Reclaim the ‘existing array’. 
POP BC Restore the discriminator byte. 


The initial parameters of the new array are found. 


2C1F D-LETTER SET 7,C Set bit 7 in the discriminator 
byte. 
LD B,+00 Make the dimension counter 
zero. 
PUSH BC Save the counter and the 
discriminator byte. 
LD HL,+0001 The HL register pair is to 
BIT 6,C hold the size of the elements 
JR NZ,2C2D,D-SIZE in the array, '1' for a string 
LD L,+05 array/ '5' for a numeric array. 
2C2D D-SIZE EX DE,HL Element size DE. 


The following loop is accessed for each dimension that is specified in the parenthesised expression of the DIM statement. The total 
number of bytes required for the elements of the array is built up in the DE register pair. 


2C2E D-NO-LOOP RST 0020,NEXT-CHAR Advance CH-ADD on each pass.. 

LD H,+FF Set a ‘limit value’. 

CALL 2ACC,INT-EXP1 Evaluate a parameter. 

JP C,2A20,REPORT-3 Give an error if ‘out of range’. 

POP HL Fetch the dimension-counter 
and the discriminator byte. 

PUSH BC Save the parameter on each 
pass through the loop. 

INC H Increase the dimension counter 
on each pass also. 

PUSH HL Restack the dimension-counter 
and the discriminator byte. 

LD H,B The parameter is moved to 

LD L,c the HL register pair. 

CALL 2AF4,GET-HL*DE The byte total is built up 

EX DE,HL in HL and the transferred to 
DE. 

RST 0018,GET-CHAR Get the present character 

CP +2C and go around the loop again 

JR Z,2C2E,D-NO-LOOP if there is another dimension. 


Note: At this point the DE register pair indicates the number of bytes required for the elements of the new array and the size of each 
dimension is stacked, on the machine stack. 
Now check that there is indeed a closing bracket to the parenthesised expression. 


CP +29 Is ita')'? 
JR NZ,2C05,D-REPORT-C Jump back if not so. 
RST 0020,NEXT-CHAR Advance CH-ADD past it. 


Allowance is now made for the dimension-sizes. 


POP BC Fetch the dimension-counter 
and the discriminator byte. 

LD A,C Pass the discriminator byte 
to the A register for later. 

LD L,B Move the counter to L. 

LD H,+00 Clear the H register. 

INC HL Increase the dimension- 

INC HL counter by two and double the 

ADD HL,HL result and form the 

ADD HL,DE correct overall length for 


the variable by adding the 
element byte total. 


JP C,1F15,REPORT-4 Give the report ‘Out of 
memory’ if required. 

PUSH DE Save the element byte total. 

PUSH BC Save the dimension counter 
and the discriminator byte. 

PUSH HL Save the overall length also. 

LD B,H Move the overall length to BC. 

LD C,L 


The required amount of room is made available for the new array at the end of the variables area. 


LD HL,(E-LINE) Make the HL register pair 
DEC HL point to the '80-byte'. 

CALL 1655, MAKE-ROOM The room is made available. 
INC HL HL is made to point to the first 


new location. 


The parameters are now entered. 
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The elements of the new 


2C7C 


The 'dimension-sizes' are now entered. 


2C7F 


DIM-CLEAR POP 


DIM-SIZES POP 


RET 


(HL),A 


(HL),+00 
6,C 
Z,2C7C,DIM-CLEAR 
(HL),+20 

BC 


NZ,2C7F,DIM-SIZES 


THE 'ALPHANUM' SUBROUTINE 


This subroutine returns with the carry flag set if the present value of the A register denotes a valid digit or letter. 


2C88 


THE 'ALPHA' SUBROUTINE 


This subroutine returns with the carry flag set if the present value of the A register denotes a valid letter of the alphabet. 


2C8D 


ALPHANUM CALL 


CCF 
RET 


ALPHA CP 


CCF 
RET 


CP 


RET 
CP 


2D1B,NUMERIC 


+41 


NC 


The letter, suitably marked, 
is entered first. 

The overall length is fetched 
and decreased by '3'. 


Advance HL. 

Enter the low length. 
Advance HL. 

Enter the high length. 

Fetch the dimension counter. 
Move it to the A register. 
Advance HL. 

Enter the dimension count. 


HL is made to point to the 
last location of the array 
and DE to the location before 
that one. 

Enter a zero into the last 
location but overwrite it 

with 'space' if dealing 

with an array of strings. 
Fetch the element byte total. 
Clear the array + one extra 
location. 


Get a dimension-size. 

Enter the high byte. 

Back one. 

Enter the low byte. 

Back one. 

Decrease the dimension 
counter. 

Repeat the operation until all 
the dimensions have been 
considered; then return. 


Test for a digit; carry will be 
reset for a digit. 
Complement the carry flag. 
Return if a digit; otherwise 
continue on into ‘ALPHA’. 


Test against 41 hex, the code 
for 'A' 

Complement the carry flag. 
Return if not a valid character 
code. 

Test against 5B hex, 1 more 
than code for 'Z'. 

Return if an upper case letter. 
Test against 61 hex, the code 
for ‘a’. 


CCF Complement the carry flag. 


RET NC Return if not a valid character 
code. 

CP +7B Test against 7B hex, 1 more 
than the code for 'z’. 

RET Finished. 


THE 'DECIMAL TO FLOATING POINT' SUBROUTINE 
As part of syntax checking decimal numbers that occur in a BASIC line are converted to their floating-point forms. This subroutine reads 
the decimal number digit by digit and gives its result as a ‘last value’ on the calculator stack. But first it deals with the alternative 


notation BIN, which introduces a sequence of 0's and 1's giving the binary representation of the required number. 


2C9B DEC-TO-FP CP +C4 Is the character a 'BIN'? 

JR NZ,2CB8,NOT-BIN Jump if it is not ‘BIN. 

LD DE,+0000 Initialise result to zero in DE. 

2CA2 BIN-DIGIT RST 0020,NEXT-CHAR Get the next character. 

SUB +31 Subtract the character code for 
"1h 

ADC A,+00 0 now gives 0 with carry set; 1 
gives 0 with carry reset. 

JR NZ,2CB3,BIN-END Any other character causes a 
jump to BIN-END and will be 
checked for syntax during or 
after scanning. 

EX DE,HL Result so far to HL now. 

CCF Complement the carry flag. 

ADC HL,HL Shift the result left, with the 
carry going to bit 0. 

JP C,31AD,REPORT-6 Report overflow if more than 
65535. 

EX DE,HL Return the result so far to DE. 

JR 2CA2,BIN-DIGIT Jump back for next 0 or 1. 

2CB3 BIN-END LD B,D Copy result to BC for stacking. 

LD C,E 

JP 2D2B,STACK-BC Jump forward to stack the 


result. 


For other numbers, first any integer part is converted; if the next character is a decimal, then the decimal fraction is considered. 


2CB8 NOT-BIN CP +2E Is the first character a '.'? 
JR Z,2CCB,DECIMAL If so, jump forward. 
CALL 2D3B,INT-TO-FP Otherwise, form a ‘last value' of 
the integer. 
CP +2E Is the next character a '."? 
JR NZ,2CEB,E-FORMAT Jump forward to see if it is an 'E'. 
RST 0020,NEXT-CHAR Get the next character. 
CALL 2D1B,NUMERIC Is it a digit? 
JR C,2CEB,E-FORMAT Jump if not (e.g. 1.E4 
is allowed). 
JR 2CD5,DEC-STO-1 Jump forward to deal with the 
digits after the decimal point. 
2CCB DECIMAL RST 0020,NEXT-CHAR If the number started with a 
CALL 2D1B,NUMERIC decimal, see if the next 
character is a digit. 
2CCF DEC-RPT-C JP C,1C8A,REPORT-C Report the error if it is not. 
RST 0028,FP-CALC Use the calculator to stack zero 
DEFB +A0,stk-zero as the integer part of such 
DEFB +38,end-calc numbers. 
2CD5 DEC-STO-1 RST 0028,FP-CALC Use the calculator again. 
DEFB +A1,stk-one Find the floating-point form of 
DEFB +C0,st-mem-0 the decimal number '1', and 


2CDA = NXT-DGT-1 


+02,delete 
+38,end-calc 
0018,GET-CHAR 
2D22,STK-DIGIT 
C,2CEB,E-FORMAT 
0028,FP-CALC 
+E0,get-mem-0 
+A4,stk-ten 
+05,division 
+C0,st-mem-0 


+04, multiply 

+0F, addition 
+38,end-calc 
0020,NEXT-CHAR 
2CDA,NXT-DGT-1 


save it in the memory area. 


Get the present character. 

If it is a digit then stack it. 

If not jump forward. 

Now use the calculator. 

For each passage of the loop, 
the number saved in the memory 
area is fetched, divided by 10 
and restored: i.e. going from .1 
to .01 to .001 etc. 

The present digit is multiplied 
by the 'saved number’ and 
added to the ‘last value’. 

Get the next character. 

Jump back (one more byte than 
needed) to consider it. 


Next consider any 'E notation’, i.e. the form xEm or xem where m is a positive or negative integer. 


2CEB E-FORMAT 


2CF2 SIGN-FLAG 


2CFE SIGN-DONE 
2CFF ST-E-PART 


2D18 E-FP-JUMP 


THE 'NUMERIC’ SUBROUTINE 


INC 


JR 
NEG 
JP 


+45 
Z,2CF2,SIGN-FLAG 
+65 


+2B 
Z,2CFE,SIGN-DONE 
+2D 
NZ,2CFF,ST-E-PART 
B 

0020,NEXT-CHAR 
2D1B,NUMERIC 
C,2CCF,DEC-RPT-C 
BC 

2D3B,INT-TO-FP 


2DD5,FP-TO-A 

BC 
C,31AD,REPORT-6 
A 
M,31AD,REPORT-6 


Z,2D18,E-FP-JUMP 


2D4F,E-TOO-FP 


Is the present character an 'E'? 
Jump forward if it is. 

Is it an 'e'? 

Finished unless it is so. 

Use B as a sign flag, FF for '+'. 
Get the next character. 

Is ita '+'? 

Jump forward. 

Is ita '-'? 

Jump if neither '+' not '-". 
Change the sign of the flag. 
Point to the first digit. 

Is it indeed a digit? 

Report the error if not. 

Save the flag in B briefly. 
Stack ABS m, where m is the 
exponent. 

Transfer ABS m to A. 

Restore the sign flag to B. 
Report the overflow now if 
ABS m is greater than 255 or 
indeed greater than 127 (other 
values greater than about 39 will 
be detected later). 

Test the sign flag in B; '+' 

(i.e. +FF) will now set the zero 
flag. 

Jump if sign of m is '+'. 
Negate m if sign is '-’. 

Jump to assign to the ‘last value’ 
the result of x*10’m. 


This subroutine returns with the carry flag reset if the present value of the A register denotes a valid digit. 


2D1B NUMERIC 


cP 
RET 
CP 


CCF 
RET 


+30 


Test against 30 hex, the code 
for '0'. 

Return if not a valid character 
code. 

Test against the upper limit. 
Complement the carry flag. 
Finished. 


THE 'STK DIGIT' SUBROUTINE 


This subroutine simply returns if the current value held in the A register does not represent a digit but if it does then the floating-point 
form for the digit becomes the ‘last value’ on the calculator stack. 


2D22 STK-DIGIT = CALL 2D1B,NUMERIC Is the character a digit? 
RET Cc Return if not in range. 
SUB +30 Replace the code by the actual 
digit. 


THE 'STACK-A' SUBROUTINE 


This subroutine gives the floating-point form for the absolute binary value currently held in the A register. 


2D28 STACK-A LD CA Transfer the value to the C 
register. 
LD B,+00 Clear the B register 


THE 'STACK-BC' SUBROUTINE 


This subroutine gives the floating-point form for the absolute binary value currently held in the BC register pair. 


The form used in this and hence in the two previous subroutines as well is the one reserved in the Spectrum for small integers n, where 
-65535 <= n <= 65535. The first and fifth bytes are zero; the third and fourth bytes are the less significant and more significant bytes of 
the 16 bit integer n in two's complement form (if n is negative, these two bytes hold 65536+n); and the second byte is a sign byte, 00 for 
"+" and FF for ‘-'. 


2D2B STACK-BC LD IY,+5C3A Re-initialise IY to ERR-NR. 

XOR A Clear the A register. 

LD EA And the E register, to indicate 
1! 

LD D,C Copy the less significant byte to 
D. 

LD C,B And the more significant byte 
to C. 

LD BA Clear the B register. 

CALL 2AB6,STK-STORE Now stack the number. 

RST 0028,FP-CALC Make HL point to 

DEFB +38,end-calc STKEND-5. 

AND A Clear the carry flag. 

RET Finished. 


THE 'INTEGER TO FLOATING-POINT' SUBROUTINE 


This subroutine returns a ‘last value’ on the calculator stack that is the result of converting an integer in a BASIC line, i.e. the integer 
part of the decimal number or the line number, to its floating-point form. 


Repeated calls to CH-ADD+1 fetch each digit of the integer in turn. An exit is made when a code that does not represent a digit has 
been fetched. 


2D3B INT-TO-FP PUSH AF Save the first digit - in A. 
RST 0028,FP-CALC Use the calculator. 
DEFB +A0,stk-zero The ‘last value’ is now zero. 
DEFB +38,end-calc 
POP AF Restore the first digit. 


Now a loop is set up. As long as the code represents a digit then the floating-point form is found and stacked under the ‘last value’. The 
‘last value’ is then multiplied by decimal 10 and added to the 'digit' to form a new ‘last value’ which is carried back to the start of the 
loop. 
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2D40 


NXT-DGT-2 


CALL 
RET 


RST 

DEFB 
DEFB 
DEFB 
DEFB 


DEFB 
CALL 
JR 


2D22,STK-DIGIT 
Cc 


0028,FP-CALC 
+01,exchange 
+A4,stk-ten 
+04, multiply 
+0F addition 


+38,end-calc 
0074,CH-ADD+1 
2D40,NXT-DGT-2 
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If the code represents a digit 
then stack the floating-point 
form. 

Use the calculator. 

‘Digit’ goes under ‘last value’. 
Define decimal 10. 

‘Last value’ = ‘last value’ *10. 
‘Last value’ = ‘last value+ 
‘digit’. 


The next code goes into A. 
Loop back with this code. 


THE ARITHMETIC ROUTINES 


THE 'E-FORMAT TO FLOATING-POINT' SUBROUTINE 
(Offset 3C - see CALCULATE below: 'e-to-fp') 


This subroutine gives a ‘last value’ on the top of the calculator stack that is the result of converting a number given in the form xEm, 
where m is a positive or negative integer. The subroutine is entered with x at the top of the calculator stack and m in the A register. 


The method used is to find the absolute value of m, say p, and to multiply or divide x by 10“p according to whether m is positive or 
negative. 


To achieve this, p is shifted right until it is zero, and x is multiplied or divided by 104(24n) for each set bit b(n) of p. Since p is never 
much more than decimal 39, bits 6 and 7 of p will not normally be set. 


2D4F E-TO-FP RLCA Test the sign of m by rotating 
RRCA bit 7 of A into the carry 
without changing A. 
JR NC,2D55,E-SAVE Jump if m is positive. 
CPL Negate m in A without 
INC A disturbing the carry flag. 
2D55 E-SAVE PUSH AF Save m in A briefly. 
LD HL,+5C92 This is MEMBOT: a sign flag is 
CALL 350B,FP-0/1 now stored in the first byte of 
mem-0O, i.e. O for '+' and 1 for 
RST 0028,FP-CALC The stack holds x. 
DEFB +A4,stk-ten x,10 (decimal) 
DEFB +38,end-calc x,10 
POP AF Restore m in A. 
2D60 E-LOOP SRL A In the loop, shift out the next 
bit of m, modifying the carry 
and zero flags appropriately; 
JR NC,2D71,E-TST-END jump if carry reset. 
PUSH AF Save the rest of m and the flags. 
RST 0028,FP-CALC The stack holds x' and 
104(24n), where x' is an 
interim stage in the multiplica- 
tion of x by 104m, and n= 
0,1,2,3,4 or 5. 
DEFB +C1,st-mem-1 (104(24n) is copied to mem-1). 
DEFB +E0,get-mem-0 x', 104(24n), (1/0) 
DEFB +00,jump-true x', 104(24n) 
DEFB +04,to E-DIVSN x', 104(24n) 
DEFB +04,multiply x'™104(24n)= x" 
DEFB +33,jump x" 
DEFB +02,to E-FETCH x" 
2D6D E-DIVSN DEFB +05, division x/104(24n)=x" (x" is N'*104 
(24n) or x'/104(24n) 
according as m is 't' ot '-’). 
2D6E E-FETCH DEFB +E1,get-mem-1 x", 104(24n) 
DEFB +38,end-calc x", 104(24n) 
POP AF Restore the rest of m in A, and 
the flags. 
2D71 E-TST-END JR Z,2D7B,E-END Jump if m has been reduced to 
zero. 
PUSH AF Save the rest of min A. 
RST 0028,FP-CALC x", 104(24n) 
DEFB +31 duplicate x", 104(24n), 104(24n) 
DEFB +04, multiply x", 104(24(n+1)) 
DEFB +38,end-calc x", 104(24(n+1)) 
POP AF Restore the rest of min A. 
JR 2D60,E-LOOP Jump back for all bits of m. 
2D7B E-END RST 0028,FP-CALC Use the calculator to delete the 


DEFB +02,delete final power of 10 reached, 
DEFB +28,end-calc leaving the ‘last value’ x*104m 
RET on the stack 


THE 'INT-FETCH' SUBROUTINE 

This subroutine collects in DE a small integer n (-65535<=n<=65535) from the location addressed by HL: i.e. n is normally the first (or 
second) number at the top of the calculator stack; but HL can alls access (by exchange with DE) a number which has been deleted 
from the stack. The subroutine does not itself delete the number from the stack or from memory; it returns HL pointing to the fourth byte 
of the number in its original position. 


2D7F INT-FETCH INC HL Point to the sign byte of the 
number. 
LD C,(HL) Copy the sign byte to C. 


The following mechanism will twos complement the number if it is negative (C is FF) but leave it unaltered if it is positive (C is 00) 


INC HL Point to the less significant 
byte. 

LD A,(HL) Collect the byte in A. 

XOR Cc Ones complement it if negative 

SUB Cc This adds 1 for negative 


numbers; it sets the carry unless 
the byte was 0. 


LD EA Less significant byte to E now. 

INC HL Point to the more significant 
byte. 

LD A,(HL) Collect it in A. 

ADC A,C Finish two complementing in 


the case of a negative number; 
note that the carry is always 


left reset. 
LD DA More significant byte to D now. 
RET Finished. 


THE 'INT-STORE' SUBROUTINE 

This subroutine stores a small integer n (-65535<=n<=65535) in the location addressed by HL and the four following locations: i.e. n 
replaces the first (or second) number at the top of the calculator stack. The subroutine returns HL pointing to the first byte of n on the 
stack. 


2D8C P-INT-STO LD C,+00 This entry point would store a 
number known to be positive 
2D8E INT-STORE PUSH HL The pointer to the first location 
is saved. 
LD (HL),+00 The first byte is set to zero. 
INC HL Point to the second location. 
LD (HL),C Enter the second byte. 


The same mechanism is now used as in 'INT-FETCH' to twos complement negative numbers. This is needed e.g. before and after the 
multiplication of small integers. Addition is however performed without any further twos complementing before or afterwards. 


INC HL Point to the third location. 

LD A,E Collect the less significant 
byte. 

XOR Cc Twos complement it if the 

SUB Cc number is negative 

LD (HL),A Store the byte. 

INC HL Point to the fourth location. 

LD A,D Collect the more significant 
byte. 

ADC A,C Twos complement it if the 

XOR Cc number is negative 
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LD (HL),A 


INC HL 
LD (HL), +00 
POP HL 

RET 


THE 'FLOATING-POINT TO BC' SUBROUTINE 


Store the byte. 

Point to the fifth location. 

The fifth byte is set to zero. 
Return with HL pointing to the 
first byte of n on the stack 


This subroutine is called from four different places for various purposes and is used to compress the floating-point ‘last value’ into the 
BC register pair. If the result is too large, i.e. greater than 65536 decimal, then the subroutine returns with the carry flag set. If the ‘last 
value' is negative then the zero flag is reset. The low byte of the result is also copied to the A register. 


2DA2 FP-TO-BC RST 0028,FP-CALC Use the calculator to make HL 

DEFB +38,end-calc point to STKEND-5 

LD A,(HL) Collect the exponent byte of 

AND A the ‘last value’; jump if it is 

JR Z,2DAD,FP-DELETE zero, indicating a 'small integer’. 

RST 0028,FP-CALC Now use the calculator to round 

DEFB +A2,stk-half the ‘last value’ to the nearest 

DEFB +0F addition integer, which also changes it to 

DEFB +27,int ‘small integer’ form on the 

DEFB +38,end-calc calculator stack if that is pos- 
sible, i.e. if -65535.5 <= 
x <65535.5 

2DAD FP-DELETE RST 0028,FP-CALC Use the calculator to delete the 

DEFB +92,delete integer from the stack; DE still 

DEFB +38,end-calc points to it in memory (at 
STKEND). 

PUSH HL Save both stack pointers. 

PUSH DE 

EX DE,HL HL now points to the number. 

LD B,(HL Copy the first byte to B. 

CALL 2D7F,INT-FETCH Copy bytes 2,3 and4 toC,E 
and D. 

XOR A Clear the A register. 

SUB B This sets the carry unless B is 
zero. 

BIT 7,C This sets the zero flag if the 
number is positive (NZ denotes 
negative). 

LD B,D Copy the high byte to B. 

LD C.E And the low byte to C. 

LD A,E Copy the low byte to A too. 

POP DE Restore the stack pointers. 

POP HL 

RET Finished. 


THE 'LOG (24A)' SUBROUTINE 


This subroutine is called by the 'PRINT-FP' subroutine to calculate the approximate number of digits before the decimal in x, the 
number to be printed, or, if there are no digits before the decimal, then the approximate number of leading zeros after the decimal. It is 
entered with the A register containing e', the true exponent of x, or e'-2, and calculates z=log to the base 10 of (2A). It then sets A 
equal to ABS INT (z + 0.5), as required, using FP-TO-A for this purpose. 


2DC1 LOG(2‘A) LD DA 
RLA 
SBC A,A 
LD EA 
LD C,A 
XOR A 
LD BA 
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The integer A is stacked, either 
as 00 00 A 00 00 (for positive 
A) or as 00 FF A FF 00 (for 
negative A). 

These bytes are first loaded into 
A, E, D, C, B and then STK- 
STORE is called to put the 
number on the calculator stack. 


CALL 2AB6,STK-STORE 


RST 0028,FP-CALC The calculator is used 

DEFB +34,stk-data Log 2 to the base 10 is now 
stacked. 

DEFB +EF,exponent +7F The stack now holds A, log 2. 

DEFB +1A,+20,+9A,+85 

DEFB +04, multiply A‘log 2 i.e. log (24A) 

DEFB +27, int INT log (24A) 

DEFB +38,end-calc 


The subroutine continues on into FP-TO-A to complete the calculation. 


THE 'FLOATING-POINT TO A' SUBROUTINE 

This short but vital subroutine is called at least 8 times for various purposes. It uses the last but one subroutine, FP-TO-BC, to get the 
‘last value’ into the A register where this is possible. It therefore tests whether the modulus of the number rounds to more than 255 and 
if it does the subroutine returns with the carry flag set. Otherwise it returns with the modulus of the number, rounded to the nearest 
integer, in the A register, and the zero flag set to imply that the number was positive, or reset to imply that it was negative. 


2DD5 FP-TO-A CALL 2DA2,FP-TO-BC Compress the ‘last value’ into 
BC. 
RET Cc Return if out of range already. 
PUSH AF Save the result and the flags. 
DEC B Again it will be out of range 
INC B if the B register does not hold 
zero. 
JR Z,2DE1,FP-A-END Jump if in range. 
POP AF Fetch the result and the flags 
SCF Signal the result is out of range. 
RET Finished - unsuccessful. 
2DE1 FP-A-END POP AF Fetch the result and the flags. 
RET Finished - successful. 


THE 'PRINT A FLOATING-POINT NUMBER' SUBROUTINE 
This subroutine is called by the PRINT command routine at 2039 and by STR$ at 3630, which converts to a string the number as it 
would be printed. The subroutine prints x, the ‘last value’ on the calculator stack. The print format never occupies more than 14 spaces. 
The 8 most significant digits of x, correctly rounded, are stored in an ad hoc print buffer in mem-3 and mem-4. Small numbers, 
numerically less than 1, and large numbers, numerically greater than 2 “ 27, are dealt with separately. The former are multiplied by 10 * 
n, where n is the approximate number of leading zeros after the decimal, while the latter are divided by 10 * (n-7), where n is the 
approximate number of digits before the decimal. This brings all numbers into the middle range, and the numbers of digits required 
before the decimal is built up in the second byte of mem-5. Finally the printing is done, using E-format if there are more than 8 digits 
before the decimal or, for small numbers, more than 4 leading zeros after the decimal. 

The following program shows the range of print formats: 

10 FOR a=-11 TO 12: PRINT SGN a*94a,: NEXT a 


i. First the sign of x is taken care of: 
If X is negative, the subroutine jumps to PF-NEGATIVE, takes ABS x and prints the minus sign. 
If x is zero, x is deleted from the calculator stack, a '0' is printed and a return is made from the subroutine. 
If x is positive, the subroutine just continues. 


2DE3 PRINT-FP RST 0028,FP-CALC Use the calculator 
DEFB +31,duplicate XX 
DEFB +36,less-0 x, (1/0) Logical value of x. 
DEFB +00,jump-true x 
DEFB +0B,to PF-NEGTVE Xx 
DEFB +31,duplicate XX 
DEFB +37,greater-0 x, (1/0) Logical value of X. 
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2DF2 PF-NEGTVE 


2DF8 PF-POSTVE 


+00,jump-true 
+0D,to PF-POSTVE 
+02,delete 
+38,end-calc 

A,+30 
0010,PRINT-A-1 


+2A,abs 
+38,end-calc 
A,+2D 
0010,PRINT-A-1 
0028,FP-CALC 
+A0,stk-zero 
+C3,st-mem-3 
+C4,st-mem-4 
+C5,st-mem-5 
+02,delete 


+38,end-calc 


HL 


x 
x Hereafter x'=ABS x. 


Enter the character code for '0'. 
Print the '0'. 

Finished as the ‘last value’ is 
zero. 

x' X'=ABS x. 

x' 

Enter the character code for '-". 
Print the '-". 

Use the calculator again. 

The 15 bytes of mem-3, mem-4 
and mem-5 are now initialised to 
zero to be used for a print 

buffer and two counters. 

The stack is cleared, except for 
x’. 

x' 
H'L', which is used to hold 
calculator offsets, (e.g. for 
'STR$') is saved on the machine 
stack. 


ii. This is the start of a loop which deals with large numbers. However every number x is first split into its integer part i and the fractional 
part f. Ifi is a small integer, i.e. if -65535 <= i <= 65535, it is stored in D'E' for insertion into the print buffer. 


2E01 PF-LOOP RST 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


2E1E PF-SAVE 


0028,FP-CALC 
+31,duplicate 
+27,int 
+C2,st-mem-2 
+03,subtract 
+E2,get-mem-2 
+01,exchange 
+C2,st-mem-2 
+03,delete 
+38,end-calc 
A,(HL) 

A 


NZ,2E56,PF-LARGE 
2D7F,INT-FETCH 
B,+10 

A,D 

A 
NZ,2E1E,PF-SAVE 
E 
Z,2E24,PF-SMALL 


D,E 
B,+08 
DE 
DE 


2E78,PF-BITS 


Use the calculator again. 
x',x' 

x', INT (x')=i 

(iis stored in mem-2). 
x'-i=f 


i,f 

(f is stored in mem-2). 

i 

i 

Is ia small integer (first byte 
zero) i.e. is ABS i <= 65535? 
Jump if it is not 

i is copied to DE (i, like x’, >=0). 
B is set to count 16 bits. 

D is copied to A for testing: 
Is it zero? 

Jump if it is not zero. 

Now test E. 

Jump if DE zero: x is a pure 
fraction. 

Move E to D and set B for 8 
bits: D was zero and E was not. 
Transfer DE to D'E’, via the 
machine stack, to be moved 
into the print buffer at 
PF-BITS. 

Jump forward. 


iii. Pure fractions are multiplied by 10“n, where n is the approximate number of leading zeros after the decimal; and -n is added to the 
second byte of mem-5, which holds the number of digits needed before the decimal; a negative number here indicates leading zeros 


after the decimal; 


2E24 PF-SMALL RST 


DEFB 


0028,FP-CALC 
+E2,get-mem-2 
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i (i=Zero here), 
i,f 


DEFB +38,end-calc i, f 


Note that the stack is now unbalanced. An extra byte 'DEFB +02, delete’ is needed at 2E25, immediately after the RST 0028. Now an 
expression like "2" +STR$ 0.5 is evaluated incorrectly as 0.5; the zero left on the stack displaces the "2" and is treated as a null string. 
Similarly all the string comparisons can yield incorrect values if the second string takes the form STR$ x where x is numerically less 
than 1; e.g. the expression "50"<STR$ 0 .1 yields the logical value "true"; once again "" is used instead of "50". 


LD A,(HL) The exponent byte e of fis 
copied to A. 
SUB +7E A becomes e - 126 deci.e. 


e'+2, where e' is the true 
exponent of f. 

CALL 2DC1,LOG (24A) The construction A = ABS INT 
(LOG (24A)) is performed 
(LOG is to base 10); i.e. A=n, 


LD DA say: nis copied from A to D. 

LD A,(mem-5-2nd) The current count is collected 

SUB D from the second byte of mem-5 

LD (mem-5-2nd),A and n is subtracted from it. 

LD A,D nis copied from D to A. 

CALL 2D4F ,E-TO-FP y=f*104n is formed and 
stacked. 

RST 0028,FP-CALC i,y 

DEFB +31,duplicate i,y, y 

DEFB +27, int i, y, (INT (y) = i2 

DEFB +C1,st-mem-1 (i2 is copied to mem-1). 

DEFB +03,subtract i, y-i2 

DEFB +E1,get-mem-1 i, y - i2, i2 

DEFB +38,end-calc i, £2, i2 (f2 = y - i2) 

CALL 2DD5,FP-TO-A i2 is transferred from the stack 
to A. 

PUSH HL The pointer to f2 is saved. 

LD (mem-3-1st),A i2 is stored in the first byte of 
mem-3: a digit for printing. 

DEC A i2 will not count as a digit for 

RLA printing if it is zero; A is 

SBC A,A manipulated so that zero will 

INC A produce zero but a non-zero 
digit will produce 1. 

LD HL,+5CAB The zero or one is inserted into 

LD (HL),A the first byte of mem-5 (the no. 

INC HL of digits for printing) and added 

ADD A,(HL) to the second byte of mem-5 

LD (HL),A (the number of digits before the 
decimal). 

POP HL The pointer to f2 is restored. 

JP 2ECF,PF-FRACTN Jump to store f2 in buffer (HL 


now points to f2, DE to i2). 


iv. Numbers greater than 2 * 27 are similarly multiplied by 2 “ (-n+7), reducing the number of digits before the decimal to 8, and the loop 
is re-entered at PF-LOOP. 


2E56 PF-LARGE SUB +80 e - 80 hex = e’, the true 
exponent of i. 
CP +1C Is e' less than 28 decimal? 
JR C,2E6F,PF-MEDIUM Jump if it is less. 
CALL 2DC1,LOG (24A) nis formed in A. 
SUB +07 And reduced to n - 7. 
LD BA Then copied to B. 
LD HL,+5CAC n - 7 is added in to the second 
ADD A,(HL) byte of mem-5, the number of 
LD (HL),A digits required before the 
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A,B 


2D4F,E-TO-FP 
2E01,PF-LOOP 


decimal in x. 

Then iis multiplied by 
104(-n+7) 

This will bring it into medium 
range for printing. 

Round the loop again to deal 
with the now medium-sized 
number. 


v. The integer part of x is now stored in the print buffer in mem-3 and mem-4. 


2E6F 


PF-MEDIUM EX 


CALL 


LD 


DE,HL 
2FBA,FETCH-TWO 


7,D 
A,L 
+80 


BA 


DE now points to i, HL to f. 
The mantissa of i is now in 
D',E',D,E. 

Get the exchange registers. 
True numerical bit 7 to D'. 
Exponent byte e of i to A. 
Back to the main registers. 
True exponent e'=e - 80 hex to 
A. 

This gives the required bit 
count. 


Note that the case where i us a small integer (less than 65536) re-enters here. 


2E7B 


2E8A 


PF-BITS 


PF-BYTES 


E 
D 


E 
D 


HL,+5CAA 
C,+05 
A,(HL) 
AA 


(HL),A 
HL 

c 
NZ,2E8A,PF-BYTES 
2E7B,PF-BITS 


The mantissa of i is now rotated 
left and all the bits of i are thus 
shifted into mem-4 and each 
byte of mem-4 is decimal 
adjusted at each shift. 

All four bytes of i. 

Back to the main registers. 
Address of fifth byte of mem-4 
to HL; count of 5 bytes to C. 
Get the byte of mem-4. 

Shift it left, taking in the new 

bit. 

Decimal adjust the byte. 
Restore it to mem-4. 

Point to next byte of mem-4. 
Decrease the byte count by one. 
Jump for each byte of mem-4. 
Jump for each bit of INT (x). 


Decimal adjusting each byte of mem-4 gave 2 decimal digits per byte, there being at most 9 digits. The digits will now be re-packed, 


one to a byte, in mem-3 and mem-4, using the instruction RLD. 


2EA1 


2EA9 


PF-DIGITS 


PF-INSERT 


XOR 
LD 


A 
HL,+5CA6 


DE,+5CA1 


B,+09 


C,+FF 


NZ,2EA9,PF-INSERT 
C 

Cc 
NZ,2EB3,PF-TEST-2 
(DE),A 
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A is cleared to receive the digits. 
Source address: first byte of 
mem-4. 

Destination: first byte of 

mem-3. 

There are at most 9 digits. 

The left nibble of mem-4 is 
discarded. 

FF in C will signal a leading 
zero, 00 will signal a non-leading 
zero. 

Left nibble of (HL) to A, right 
nibble of (HL) to left. 

Jump if digit in A is not zero. 
Test for a leading zero: 

it will now give zero reset. 

Jump it it was a leading zero. 
Insert the digit now. 


2EB3 


2EB8 


2ECB 


PF-TEST-2 


PF-ALL-9 


PF-MORE 


JR 
RST 
DEFB 
DEFB 
DEFB 


DE 
(mem-5-1st) 
(mem-5-2nd) 
C,+00 


0,B 
Z,2EB8,PF,ALL-9 
HL 


2EA1,PF-DIGITS 
A,(mem-5-1st) 

+09 
C,2ECB,PF-MORE 
(mem-5-1st) 


A,+04 
(mem-4-4th) 


2FOC,PF-ROUND 
0028,FP-CALC 
+02,delete 
+E2,get-mem-2 
+38,end-calc 


vi. The fractional part of x is now stored in the print buffer. 


2ECF 


2EDF 


2EEC 
2EEF 


PF-FRACTN EX 


PF-FRN-LP 


PF-FR-DGT 
PF-FR-EXX 


CALL 


DE,HL 
2FBA,FETCH-TWO 


A,+80 
L 
L,+00 


7,D 


2FDD,SHIFT-FP 
A,(mem-5-1st) 

+08 
C,2EEC,PR-FR-DGT 


D 


2FOC,PF-ROUND 
BC,+0200 

A,E 
2F8B,CA=10*A+C 
EA 


2F8B,CA=10*A+C 
DA 
BC 


BC 
2EEF,PF-FR-EXX 


HL,+5CA1 
A,C 
C,(mem-5-1st) 


HL,BC 
(HL),A 


Point to next destination. 

One more digit for printing, and 
one more before the decimal. 
Change the flag from leading 
zero to other zero. 

The source pointer needs to be 
incremented on every second 
passage through the loop, when 
B is odd. 

Jump back for all 9 digits. 

Get counter: were there 9 digits 
excluding leading zeros? 

If not, jump to get more digits. 
Prepare to round: reduce count 
to 8. 

Compare 9th digit, byte 4 of 
mem-4, with 4 to set carry for 
rounding up. 

Jump forward to round up. 

Use the calculator again. 

- (iis now deleted). 

f 

f 


DE now points to f. 

The mantissa of f is now in 
D',E',D,E. 

Get the exchange registers. 
The exponent of f is reduced to 
zero, by shifting the bits of f 80 
hex - e places right, where L' 
contained e. 

True numerical bit to bit 7 of 
D’. 

Restore the main registers. 
Now make the shift. 

Get the digit count. 

Are there already 8 digits? 

If not, jump forward. 

If 8 digits, just use f to round i 
up, rotating D' left to set the 
carry. 

Restore main registers and jump 
forward to round up. 

Initial zero to C, count of 2 to B. 
D'E'DE is multiplied by 10 in 2 
stages, first DE then D'E', each 
byte by byte in 2 steps, and the 
integer part of the result is 
obtained in C to be passed into 
the print buffer. 

The count and the result 
alternate between BC and B'C'. 


Look back once through the 
exchange registers. 

The start - 1st byte of mem-3. 
Result to A for storing. 

Count of digits so far in number 
to C. 

Address the first empty byte. 
Store the next digit. 


INC (mem-5-1st) Step up the count of digits. 
JR 2EDF,PF-FRN-LP Loop back until there are 8 
digits. 


vii. The digits stored in the print buffer are rounded to a maximum of 8 digits for printing. 


2F0C PF-ROUND PUSH AF Save the carry flag for the 
rounding. 
LD HL,+5CA1 Base address of number: mem-3, 
byte 1. 
LD C,(mem-5-1st) Offset (number of digits in 
LD B,+00 number) to BC. 
ADD HL,BC Address the last byte of the 
number. 
LD B,C Copy C to B as the counter. 
POP AF Restore the carry flag. 
2F18 PF-RND-LP DEC HL This is the last byte of the 
number. 
LD A,(HL) Get the byte into A. 
ADC A,+00 Add in the carry i.e. round 
up. 
LD (HL),A Store the rounded byte in the 
buffer. 
AND A If the byte is 0 or 10, B will be 
JR Z,2F25,PF-R-BACK decremented and the final zero 
CP +0A (or the 10) will not be counted 
for printing. 
CCF Reset the carry for a valid digit. 
JR NC,2F2D,PF-COUNT Jump if carry reset. 
2F25 PF-R-BACK DJNZ 2F18,PF-RND-LP Jump back for more rounding 
or more final zeros. 
LD (HL),+01 There is overflow to the left; 
INC B an extra 1 is needed here. 
INC (mem-5-2nd) It is also an extra digit before 
the decimal. 
2F2D PF-COUNT LD (mem-5-1st),B B now sets the count of the 


digits to be printed (final zeros 
will not be printed). 


RST 0028,FP-CALC f is to be deleted. 

DEFB +02,delete - 

DEFB +38,end-calc - 

EXX The calculator offset saved on 
POP HL the stack is restored to H'L'. 
EXX 


viii. The number can now be printed. First C will be set to hold the number of digits to be printed, not counting final zeros, while B will 
hold the number of digits required before the decimal. 


LD BC,(mem-5-1st) The counters are set. 

LD HL,+5CA1 The start of the digits. 

LD A,B If more than 9, or fewer than 

CP +09 minus 4, digits are required 

JR C,2F46,PF-NOT-E before the decimal, then E-format 
will be needed. 

CP +FC Fewer than 4 means more than 

JR C,2F6C,PF-E-FRMT 4 leading zeros after the decimal. 

2F46 PF-NOT-E AND A Are there no digits before the 

CALL Z,15EF,OUT-CODE decimal? If so, print an initial 

zero. 


The next entry point is also used to print the digits needed for E-format printing. 


2F4A PF-E-SBRN XOR A Start by setting A to zero. 
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B 


Subtract B: minus will mean 


JR M,2F52,PF-OUT-LP there are digits before the 
decimal; jump forward to print 
them. 

LD BA A is now required as a counter. 

JR 2F5E,PF-DC-OUT Jump forward to print the 
decimal part. 

2F52 PF-OUT-LP LD A,C Copy the number of digits to be 

AND A printed to A. If A is 0, there are 

JR Z,2F59,PF-OUT-DT still final zeros to print (B is 
non-zero), so jump. 

LD A,(HL) Get a digit from the print buffer. 

INC HL Point to the next digit. 

DEC Cc Decrease the count by one. 

2F59 PF-OUT-DT CALL 15EF,OUT-CODE Print the appropriate digit. 

DJNZ 2F52,PF-OUT-LP Loop back until B is zero. 

2F5E PF-DC-OUT LD A,C It is time to print the decimal, 

AND A unless C is now zero; in that 

RET Z case, return - finished. 

INC B Add 1 to B - include the 
decimal. 

LD A,+2E Put the code for '.' into A. 

2F64 PF-DEC-0S RST 0010,PRINT-A-1 Print the '.". 

LD A,+30 Enter the character code for 
‘O’. 

DJNZ 2F64,PF-DEC-0S Loop back to print all needed 
zeros. 

LD B,C Set the count for all remaining 
digits. 

JR 2F52,PF-OUT-LP Jump back to print them. 

2F6C PF-E-FRMT LD D,B The count of digits is copied to 
D. 

DEC D It is decremented to give the 
exponent. 

LD B,+01 One digit is required before the 
decimal in E-format. 

CALL 2F4A,PF-E-SBRN All the part of the number 
before the 'E' is now printed. 

LD A,+45 Enter the character code for 
'E' 

RST 0010,PRINT-A-1 Print the 'E'. 

LD C,D Exponent to C now for printing. 

LD A,C And to A for testing. 

AND A Its sign is tested. 

JP P,2F83,PF-E-POS Jump if it is positive. 

NEG Otherwise, negate it in A. 

LD CA Then copy it back to C for 
printing. 

LD A,+2D Enter the character code for '-'. 

JR 2F85,PF-E-SIGN Jump to print the sign. 

2F83 PF-E-POS LD A,+2B Enter the character code for 
‘yt 
2F85 PF-E-SIGN RST 0010,PRINT-A-1 Now print the sign: '+' or '-'. 

LD B,+00 BC holds the exponent for 
printing. 

JP 1A1B,OUT-NUM Jump back to print it and finish. 


THE 'CA=10*A+C' SUBROUTINE' 


This subroutine is called by the PRINT-FP subroutine to multiply each byte of D'E'DE by 10 and return the integer part of the result in 
the C register. On entry, the A register contains the byte to be multiplied by 10 and the C register contains the carry over from the 
previous byte. On return, the A register contains the resulting byte and the C register the carry forward to the next byte. 
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2F8B CA=10*A+C PUSH DE Save whichever DE pair is in use. 


LD LA Copy the multiplicand from A 

LD H,+00 to HL. 

LD E,L Copy it to DE too. 

LD D,H 

ADD HL,HL Double HL. 

ADD HL,HL Double it again. 

ADD HL,DE Add in DE to give HL=5*A. 

ADD HL,HL Double again: now HL=10*A. 

LD E,C Copy C to DE (D is zero) for 
addition. 

ADD HL,DE Now HL=10*A+C. 

LD C,H H is copied to C. 

LD A,L L is copied to A, completing 
the task. 

POP DE The DE register pair is restored. 

RET Finished. 


THE 'PREPARE TO ADD' SUBROUTINE. 

This subroutine is the first of four subroutines that are used by the main arithmetic operation routines - SUBTRACTION, ADDITION, 
MULTIPLICATION and DIVISION. 

This particular subroutine prepares a floating-point number for addition, mainly by replacing the sign bit with a true numerical bit 1, and 
negating the number (two's complement) if it is negative. The exponent is returned in the A register and the first byte is set to Hex.00 for 
a positive number and Hex.FF for a negative number. 


2F9B PREP-ADD LD A,(HL) Transfer the exponent to A. 
LD (HL),+00 Presume a positive number. 
AND A If the number is zero then the 
RET Z preparation is already finished. 
INC HL Now point to the sign byte. 
BIT 7,(HL) Set the zero flag for positive 

number. 

SET 7,(HL) Restore the true numeric bit. 
DEC HL Point to the first byte again. 
RET Z Positive numbers have been 


prepared, but negative numbers 
need to be twos complemented. 


PUSH BC Save any earlier exponent. 

LD BC,+0005 There are 5 bytes to be handled. 

ADD HL,BC Point one-past the last byte. 

LD B,C Transfer the '5' to B. 

LD C,A Save the exponent in C. 

SCF Set carry flag for negation. 
2FAF NEG-BYTE DEC HL Point to each byte in turn. 

LD A,(HL) Get each byte. 

CPL One's complement the byte. 

ADC A,+00 Add in carry for negation. 

LD (HL),A Restore the byte. 

DJNZ 2FAF,NEG-BYTE Loop the '5' times. 

LD A,C Restore the exponent to A. 

POP BC Restore any earlier exponent. 

RET Finished. 


THE 'FETCH TWO NUMBERS' SUBROUTINE 

This subroutine is called by ADDITION, MULTIPLICATION and DIVISION to get two numbers from the calculator stack and put them 
into the register, including the exchange registers. 

On entry to the subroutine the HL register pair points to the first byte of the first number and the DE register pair points to the first byte 
of the second number. 

When the subroutine is called from MULTIPLICATION or DIVISION the sign of the result is saved in the second byte of the first 
number. 
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2FBA FETCH-TWO PUSH HL HL is preserved. 


PUSH AF AF is preserved. 
Call the five bytes of the first number - M1, M2, M3, M4 & M5. 
and the second number -N1, N2, N3, N4 & N5. 
LD C,(HL) M1 to C. 
INC HL Next. 
LD B,(HL) M2 to B. 
LD (HL),A Copy the sign of the result to 
(HL). 
INC HL Next. 
LD A,C M1 to A. 
LD C,(HL) M3 to C. 
PUSH BC Save M2 & M3 on the machine 
stack. 
INC HL Next. 
LD C,(HL) M4 to C. 
INC HL Next. 
LD B,(HL) M5 to B. 
EX DE,HL HL now points to N1. 
LD DA M1 to D. 
LD E,(HL) N1 to E. 
PUSH DE Save M1 & N1 on the machine 
stack. 
INC HL Next. 
LD D,(HL) N2 to D. 
INC HL Next. 
LD E,(HL) N3 to E. 
PUSH DE Save N2 &N3 on the machine 
stack. 
EXX Get the exchange registers. 
POP DE N2 to D' & N3 to E’. 
POP HL M1 to H'& N41 to L’. 
POP BC M2 to B' & M3 to C'. 
EXX Get the original set of registers. 
INC HL Next. 
LD D,(HL) N4 to D. 
INC HL Next. 
LD E,(HL) N5 to E. 
POP AF Restore the original AF. 
POP HL Restore the original HL. 
RET Finished. 
Summary: M1 - M5 are in H', B’, C’, C, B. 


N1 - N5 are in: L', D', E'", D, E. 
HL points to the first byte of the first number. 


THE 'SHIFT ADDEND' SUBROUTINE 

This subroutine shifts a floating-point number up to 32 decimal, Hex.20, places right to line it up properly for addition. The number with 
the smaller exponent has been put in the addend position before this subroutine is called. Any overflow to the right, into the carry, is 
added back into the number. If the exponent difference is greater than 32 decimal, or the carry ripples right back to the beginning of the 
number then the number is set to zero so that the addition will not alter the other number (the augend). 


2FDD SHIFT-FP AND A If the exponent difference is 
RET Z zero, the subroutine returns at 
CP +21 once. If the difference is greater 
JR NC,2FF9,ADDEND-O than Hex.20, jump forward. 
PUSH BC Save BC briefly. 
LD B,A Transfer the exponent difference 
to B to count the shifts right. 
2FE5 ONE-SHIFT EXX Arithmetic shift right for L', 
SRA L preserving the sign marker bits. 
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RR D Rotate right with carry D', E', 

RR E D&E. 

EXX Thereby shifting the whole five 

RR D bytes of the number to the right 

RR E as many times as B counts. 

DJNZ 2FE5,ONE-SHIFT Loop back until B reaches zero. 

POP BC Restore the original BC. 

RET NC Done if no carry to retrieve. 

CALL 3004,ADD-BACK Retrieve carry. 

RET NZ Return unless the carry rippled 
right back. (In this case there is 
nothing to add). 

2FF9 ADDEND-0- EXX Fetch L', D'& E'. 
XOR A Clear the A register. 
2FFB ZEROS-4/5 LD L,+00 Set the addend to zero in D',E’, 

LD DA D &E, together with its marker 

LD E,L byte (sign indicator) L', which 

EXX was Hex.00 for a positive 

LD DE,+0000 number and Hex.FF for a 
negative number. ZEROS-4/5 
produces only 4 zero bytes 
when called for near underflow 
at 3160. 

RET Finished. 


THE 'ADD-BACK' SUBROUTINE 

This subroutine adds back into the number any carry which has overflowed to the right. In the extreme case, the carry ripples right back 
to the left of the number. 

When this subroutine is called during addition, this ripple means that a mantissa of 0.5 was shifted a full 32 places right, and the 
addend will now be set to zero; when called from MULTIPLICATION, it means that the exponent must be incremented, and this may 
result in overflow. 


3004 ADD-BACK — INC E Add carry to rightmost byte. 
RET NZ Return if no overflow to left. 
INC D Continue to the next byte. 
RET NZ Return if no overflow to left. 
EXX Get the next byte. 
INC E Increment it too. 
JR NZ,300D,ALL-ADDED Jump if no overflow. 
INC D Increment the last byte. 
300D ALL-ADDED EXX Restore the original 
registers. 
RET Finished. 


THE 'SUBTRACTION' OPERATION 
(Offset 03 - see CALCULATE below: 'subtract') 


This subroutine simply changes the sign of the subtrahend and carried on into ADDITION. 
Note that HL points to the minuend and DE points to the subtrahend. (See ADDITION for more details.) 


300F SUBTRACT EX DE,HL Exchange the pointers. 
CALL 346E,NEGATE Change the sign of the 
subtrahend. 
EX DE,HL Exchange the pointers back and 


continue into ADDITION. 


THE 'ADDITION' OPERATION 
(Offset OF - see CALCULATE below: 'addition’) 


The first of three major arithmetical subroutines, this subroutine carries out the floating-point addition of two numbers, each with a 4- 


byte mantissa and a 1-byte exponent. In these three subroutines, the two numbers at the top of the calculator stack are 
added/multiplied/divided to give one number at the top of the calculator stack, a ‘last value’. 


176 


HL points to the second number from the top, the augend/multiplier/dividend. DE points to the number at the top of the calculator stack, 
the addend/multiplicand/divisor. Afterwards HL points to the resultant ‘last value’ whose address can also be considered to be STKEND 
- 5. 

But the addition subroutine first tests whether the 2 numbers to be added are 'small integers’. If they are, it adds them quite simply in HL 
and BC, and puts the result directly on the stack. No twos complementing is needed before or after the addition, since such numbers 
are held on the stack in twos complement form, ready for addition. 


3014 addition LD A,(DE) Test whether the first bytes of 

OR (HL) both numbers are zero. 

JR NZ,303E,-FULL-ADDN If not, jump for full addition. 

PUSH DE Save the pointer to the second 
number. 

INC HL Point to the second byte of the 

PUSH HL first number and save that 
pointer too. 

INC HL Point to the less significant 
byte. 

LD E,(HL) Fetch it in E. 

INC HL Point to the more significant 
byte. 

LD D,(HL) Fetch it in D. 

INC HL Move on to the second byte of 

INC HL the second number. 

INC HL 

LD A,(HL) Fetch it in A (this is the sign 
byte). 

INC HL Point to the less significant 
byte. 

LD C,(HL) Fetch it in C. 

INC HL Point to the more significant 
byte. 

LD B,(HL) Fetch is in B. 

POP HL Fetch the pointer to the sign 

EX DE,HL byte of the first number; put it 
in DE, and the number in HL. 

ADD HL,BC Perform the addition: result in 
HL. 

EX DE,HL Result to DE, sign byte to HL. 

ADC A,(HL) Add the sign bytes and the carry 

RRCA into A; this will detect any 
overflow. 

ADC A,+00 A non-zero A now indicates 
overflow. 

JR NZ,303C,ADDN-OFLW Jump to reset the pointers and 
to do full addition. 

SBC A,A Define the correct sign byte for 
the result. 

3032 LD (HL),A Store it on the stack. 

INC HL Point to the next location. 

LD (HL),E Store the low byte of the result. 

INC HL Point to the next location. 

LD (HL),D Store the high byte of the 
result. 

DEC HL Move the pointer back to 

DEC HL address the first byte of the 

DEC HL result. 

POP DE Restore STKEND to DE. 

RET Finished. 


Note that the number -65536 decimal can arise here in the form 00 FF 00 00 00 as the result of the addition of two smaller negative 
integers, e.g. -65000 and -536. It is simply stacked in this form. This is a mistake. The Spectrum system cannot handle this number. 
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Most functions treat it as zero, and it is printed as -1E-38, obtained by treating is as 'minus zero’ in an illegitimate format. 

One possible remedy would be to test for this number at about byte 3032 and, if it is present, to make the second byte 80 hex and the 
first byte 91 hex, so producing the full five byte floating-point form of the number, i.e. 91 80 00 00 00, which causes no problems. See 
also the remarks in ‘truncate’ below, before byte 3225, and the Appendix. 


303C ADDN-OFLW DEC HL Restore the pointer to the first 
number. 
POP DE Restore the pointer to the 
second number. 
303E FULL-ADDN CALL 3293,RE-ST-TWO Re-stack both numbers in full 


five byte floating-point form. 


The full ADDITION subroutine first calls PREP-ADD for each number, then gets the two numbers from the calculator stack and puts the 
one with the smaller exponent into the addend position. It then calls SHIFT-FP to shift the addend up to 32 decimal places right to line it 
up for addition. The actual addition is done in a few bytes, a single shift is made for carry (overflow to the left) if needed, the result is 
twos complemented if negative, and any arithmetic overflow is reported; otherwise the subroutine jumps to TEST-NORM to normalise 
the result and return it to the stack with the correct sign bit inserted into the second byte. 


EXX Exchange the registers. 

PUSH HL Save the next literal address. 

EXX Exchange the registers. 

PUSH DE Save pointer to the addend. 

PUSH HL Save pointer to the augend. 

CALL 2F9B,PREP-ADD Prepare the augend. 

LD BA Save its exponent in B. 

EX DE,HL Exchange its pointers. 

CALL 2F9B,PREP-ADD Prepare the addend. 

LD CA Save its exponent in C. 

CP B If the first exponent is smaller, 

JR NC,3055,SHIFT-LEN keep the first number in the 

LD A,B addend position; otherwise 

LD B,C change the exponents and the 

EX DE,HL pointers back again. 

3055 SHIFT-LEN PUSH AF Save the larger exponent in A. 

SUB B The difference between the 
exponents is the length of the 
shift right. 

CALL 2FBA,FETCH-TWO Get the two numbers from the 
stack. 

CALL 2FDD,SHIFT-FP Shift the addend right. 

POP AF Restore the larger exponent. 

POP HL HL is to point to the result. 

LD (HL),A Store the exponent of the 
result. 

PUSH HL Save the pointer again. 

LD L,B M4 to H & M5 to L, 

LD H,C (see FETCH-TWO). 

ADD HL,DE Add the two right bytes. 

EXX N2 to H' & N3 to L', 

EX DE,HL (see FETCH-TWO). 

ADC HL,BC Add left bytes with carry. 

EX DE,HL Result back in D'E'. 

LD A,H Add H', L' and the carry; the 

ADC A,L resulting mechanisms will ensure 

LD LA that a single shift right is called 

RRA if the sum of 2 positive numbers 

XOR L has overflowed left, or the sum 

EXX of 2 negative numbers has not 


overflowed left. 
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307C 


309F 


30A3 


30A5 


TEST-NEG 


ADD-REP-6 


END-COMPL 


GO-NC-MLT 


DE,HL 
HL 


NC,307C,TEST-NEG 


A,+01 
2FDD,SHIFT-FP 
(HL) 
Z,309F,ADD-REP-6 


AL 
+80 

HL 

(HL),A 

HL 
Z,30A5,GO-NC-MLT 


A,E 


E,A 


A,D 


A,+00 
NC,30A3,END-COMPL 


(HL) 


Z,31AD,REPORT-6 
DA 


A 
3155, TEST-NORM 


THE 'HL=HL*DE' SUBROUTINE 


This subroutine is called by 'GET-HL*DE' and by 'MULTIPLICATION' to perform the 16-bit multiplication as stated. 


The result is now in DED'E’. 
Get the pointer to the 
exponent. 

The test for shift (H', L' were 
Hex. 00 for positive numbers 
and Hex.FF for negative 
numbers). 

A counts a single shift right. 
The shift is called. 

Add 1 to the exponent; this 
may lead to arithmetic overflow. 


Test for negative result: get 
sign bit of L' into A (this now 
correctly indicates the sign of 
the result). 

Store it in the second byte 
position of the result on 

the calculator stack. 

If it is zero, then do not 

twos complement the result. 
Get the first byte. 

Negate it. 

Complement the carry for 
continued negation, and store 
byte. 

Get the next byte. 

Ones complement it. 

Add in the carry for negation. 
Store the byte. 

Proceed to get next byte into 
the A register. 

Ones complement it. 

Add in the carry for negation. 
Store the byte. 

Get the last byte. 

Ones complement it. 

Add in the carry for negation. 
Done if no carry. 

Else, get .5 into mantissa and 
add 1 to the exponent; this will 
be needed when two negative 
numbers add to give an exact 
power of 2, and it may lead to 
arithmetic overflow. 

Give the error if required. 


Store the last byte. 


Clear the carry flag. 
Exit via TEST-NORM. 


Any overflow of the 16 bits available is dealt with on return from the subroutine. 


30A9 


30B1 


HL=HL*DE 


HL-LOOP 


C,L 
HL,+0000 
HL,HL 


BC is saved. 

It is to be a 16 bit multipli- 
cation. 

A holds the high byte. 

C holds the low byte. 
Initialise the result to zero. 
Double the result. 


JR C,30BE,HL-END Jump if overflow. 

RL Cc Rotate bit 7 of C into the carry. 

RLA Rotate the carry bit into bit 0 
and bit 7 into the carry flag. 


JR NC,30BC,HL-AGAIN Jump if the carry flag is reset. 
ADD HL,DE Otherwise add DE in once. 
JR C,30BE,HL-END Jump if overflow. 
30BC HL-AGAIN DJNZ 30B1,HL-LOOP Until 16 passes have been made. 
30BE HL-END POP BC Restore BC. 
RET Finished. 


THE 'PREPARE TO MULTIPLY OR DIVIDE' SUBROUTINE 


This subroutine prepares a floating-point number for multiplication or division, returning with carry set if the number is zero, getting the 
sign of the result into the A register, and replacing the sign bit in the number by the true numeric bit, 1. 


30C0 PREP-M/D CALL 34E9, TEST-ZERO If the number is zero, return 

RET Cc with the carry flag set. 

INC HL Point to the sign byte. 

XOR (HL) Get sign for result into A (like 
signs give plus, unlike give 
minus); also reset the carry flag. 

SET 7,(HL) Set the true numeric bit. 

DEC HL Point to the exponent again. 

RET Return with carry flag reset. 


THE 'MULTIPLICATION' OPERATION 
(Offset 04 - see CALCULATE below: 'multiply’) 


This subroutine first tests whether the two numbers to be multiplied are 'small integers’. If they are, it uses INT-FETCH to get them from 
the stack, HL=HL*DE to multiply them and INT-STORE to return the result to the stack. Any overflow of this 'short multiplication’ (i.e. if 
the result is not itself a 'small integer’) causes a jump to multiplication in full five byte floating-point form (see below). 


30CA multiply LD A,(DE) Test whether the first bytes of 

OR (HL) both numbers are zero. 

JR NZ,30F0,MULT-LONG If not, jump for ‘long’ multi- 
plication. 

PUSH DE Save the pointers: to the second 
number. 

PUSH HL And to the first number. 

PUSH DE And to the second number yet 
again. 

CALL 2D7F,INT-FETCH Fetch sign in C, number in DE. 

EX DE,HL Number to HL now. 

EX (SP),HL Number to stack, second 
pointer to HL. 

LD B,C Save first sign in B. 

CALL 2D7F,INT-FETCH Fetch second sign in C, number 
in DE. 

LD A,B Form sign of result in A: like 

XOR Cc signs give plus (00), unlike give 
minus (FF). 

LD CA Store sign of result in C. 

POP HL Restore the first number to HL. 

CALL 30A9,HL=HL*DE Perform the actual multipli- 
cation. 

EX DE,HL Store the result in DE. 

POP HL Restore the pointer to the first 
number. 

JR C,30EF,MULT-OFLW Jump on overflow to ‘full’ 
multiplication. 

30E5 LD A,D These 5 bytes ensure that 
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OR E 00 FF 00 00 00 is replaced by 


JR NZ,30EA,MULT-RSLT zero; that they should not be 
LD CA needed if this number were 
excluded from the system (see 
after 303B) above). 
30EA MULT-RSLT CALL 2D8E,INT-STORE Now store the result on the 
stack. 
POP DE Restore STKEND to DE. 
RET Finished. 
30EF MULT-OFLW POP DE Restore the pointer to the 
second number. 
30F0 MULT-LONG CALL 3293,RE-ST-TWO Re-stack both numbers in full 


five byte floating-point form. 
The full MULTIPLICATION subroutine prepares the first number for multiplication by calling PREP-M/D, returning if it is zero; otherwise 
the second number is prepared by again calling PREP-M/D, and if it is zero the subroutine goes to set the result to zero. Next it fetches 
the two numbers from the calculator stack and multiplies their mantissas in the usual way, rotating the first number (treated as the 
multiplier) right and adding in the second number (the multiplicand) to the result whenever the multiplier bit is set. The exponents are 
then added together and checks are made for overflow and for underflow (giving the result zero). Finally, the result is normalised and 
returned to the calculator stack with the correct sign bit in the second byte. 


XOR A A is set to Hex.00 so that the 
sign of the first number will go 
into A. 

CALL 30C0,PREP-M/D Prepare the first number, and 

RET Cc return if zero. (Result already 
zero.) 

EXX Exchange the registers. 

PUSH HL Save the next literal address. 

EXX Exchange the registers. 

PUSH DE Save the pointer to the multi- 
plicand. 

EX DE,HL Exchange the pointers. 

CALL 30C0,PREP-M/D Prepare the 2nd number. 

EX DE,HL Exchange the pointers again. 

JR C,315D,ZERO-RSLT Jump forward if 2nd number is 
zero. 

PUSH HL Save the pointer to the result. 

CALL 2FBA,FETCH-TWO Get the two numbers from 
the stack. 

LD A,B M5 to A (see FETCH-TWO). 

AND A Prepare for a subtraction. 

SBC HL,HL Initialise HL to zero for the 
result. 

EXX Exchange the registers. 

PUSH HL Save M1 & N1 (see 
FETCH-TWO). 

SBC HL,HL Also initialise H'L' for the 
result. 

EXX Exchange the registers. 

LD B,+21 B counts 33 decimal, Hex.21, 
shifts. 

JR 3125,STRT-MLT Jump forward into the loop. 


Now enter the multiplier loop. 


3114 MLT-LOOP JR NC,311B,NO-ADD Jump forward to NO-ADD if no 
carry, i.e. the multiplier bit was 
reset. 

ADD HL,DE Else, add the multiplicand in 
EXX D'E'DE (see FETCH-TWO) into 
ADC HL,DE the result being built up on 
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311B NO-ADD EXX 


3125 STRT-MLT = EXX 


Now add the exponents together. 
POP 
POP 


LD 
ADD 


JR 
AND 


313B MAKE-EXPT DEC 
CCF 


Legare 


Cc 
Cc 


3114,MLT-LOOP 
DE,HL 


DE,HL 


BC 
HL 


A,B 
A,C 


NZ,313B,MAKE-EXPT 
A 


A 


H'L'HL. 

Whether multiplicand was added 
or not, shift result right in 
H'L'HL, i.e. the shift is done by 
rotating each byte with carry, so 
that any bit that drops into the 
carry is picked up by the next 
byte, and the shift continued 
into B'C'CA. 

Shift right the multiplier in 
B'C'CA (see FETCH-TWO & 
above). 

A final bit dropping into the 
carry will trigger another add of 
the multiplicand to the result. 


Loop 33 times to get all the bits. 
Move the result from: 


H'L'HL to D'E'DE. 


Restore the exponents - M1 
&N1. 

Restore the pointer to the 
exponent byte. 

Get the sum of the two 
exponent bytes in A, and the 
correct carry. 

If the sum equals zero then clear 
the carry; else leave it 
unchanged. 

Prepare to increase the 
exponent by Hex.80. 


The rest of the subroutine is common to both MULTIPLICATION and DIVISION. 


313D DIVN-EXPT RLA 
CCF 


RRA 


JP 


3146 OFLW1-CLR_ INC 


3151 OFLW2-CLR_ LD 


P,3146,OFLW1-CLR 
NC,31AD,REPORT-6 
A 

A 
NZ,3151,OFLW2-CLR 
C,3151,OFLW2-CLR 
7,D 


NZ,31AD,REPORT-6 


(HL),A 


A,B 


These few bytes very cleverly 
make the correct exponent 
byte. 

Rotating left then right gets the 
exponent byte (true exponent 
plus Hex.80) into A. 

If the sign flag is reset, no report 
of arithmetic overflow needed. 
Report the overflow if carry 
reset. 

Clear the carry now. 

The exponent byte is now com- 
plete; but if A is zero a further 
check for overflow is needed. 

If there is no carry set and the 
result is already in normal form 
(bit 7 of D' set) then there is 
overflow to report; but if bit 7 

of D' is reset, the result in just in 
range, i.e. just under 2**127. 
Store the exponent byte, at last. 
Pass the fifth result byte to A 
for the normalisation sequence, 
i.e. the overflow from L into B'. 


The remainder of the subroutine deals with normalisation and is common to all the arithmetic routines. 


3155 TEST-NORM JR 


3159 NEAR-ZERO LD 


315D ZERO-RSLT XOR 
315E SKIP-ZERO EXX 


The actual normalisation operation. 


316C NORMALISE LD 
316E SHIFT-ONE EXX 


JR 


DJNZ 
JR 


NC,316C,NORMALISE 
A,(HL) 

A 

A,+80 
Z,315E,SKIP-ZERO 

A 

D 

2FFB,ZEROS-4/5 


(HL),A 
C,3195,OFLOW-CLR 


3195,OFLOW-CLR 


B,+20 
7,D 


NZ,3186,NORML-NOW 


E 
D 


om 


(HL) 


Z,3159,NEAR-ZERO 


316E,SHIFT-ONE 
315D,ZERO-RSLT 


Finish the normalisation by considering the ‘carry’. 


3186 NORML-NOW RLA 


NC,3195,OFLW-CLR 
3004,ADD-BACK 
NZ,3195,OFLW-CLR 


D,+80 


(HL) 
Z,31AD,REPORT-6 


If no carry then normalise now. 
Else, deal with underflow (zero 
result) or near underflow 

(result 2**-128): 

return exponent to A, test if A 

is zero (case 2**-128) and if so 
produce 2**-128 if number is 
normal; otherwise produce zero. 
The exponent must then be set 
to zero (for zero) or 1 (for 
2**-128). 

Restore the exponent byte. 
Jump if case 2**-128. 
Otherwise, put zero into second 
byte of result on the calculator 
stack. 

Jump forward to transfer the 
result. 


Normalise the result by up to 32 
decimal, Hex.20, shifts left of 
D'E'DE (with A adjoined) until 
bit 7 of D' is set. A holds zero 
after addition so no precision is 
gained or lost; A holds the fifth 
byte from B' after multiplica- 
tion or division; but as only 
about 32 bits can be correct, no 
precision is lost. Note that A is 
rotated circularly, with branch 
at carry .... eventually a random 
process. 

The exponent is decremented 
on each shift. 

If the exponent becomes zero, 
then number from 2**-129 are 
rounded up to 2**-128. 

Loop back, up to 32 times. 

If bit 7 never became 1 then the 
whole result is to be zero. 


After normalisation add back 
any final carry that went into A. 
Jump forward if the carry does 
not ripple right back. 

If it should ripple right back 
then set mantissa to 0.5 and 
increment the exponent. 

This action may lead to arith- 
metic overflow (final case). 


The final part of the subroutine involves passing the result to the bytes reserved for it on the calculator stack and resetting the pointers. 


3195 OFLOW-CLR PUSH 
INC 


EXX 
PUSH 
EXX 


HL 
HL 


DE 


Save the result pointer. 
Point to the sign byte in the 
result. 

The result is moved from its 
present registers, D'E'DE, to 
BCDE; and then to ACDE. 


POP BC 


LD A,B The sign bit is retrieved from 

RLA its temporary store and trans- 

RL (HL) ferred to its correct position of 

RRA bit 7 of the first byte of the 
mantissa. 

LD (HL),A The first byte is stored. 

INC HL Next. 

LD (HL),C The second byte is stored. 

INC HL Next. 

LD (HL),D The third byte is stored. 

INC HL Next. 

LD (HL),E The fourth byte is stored. 

POP HL Restore the pointer to the 
result. 

POP DE Restore the pointer to second 
number. 

EXX Exchange the register. 

POP HL Restore the next literal address. 

EXX Exchange the registers. 

RET Finished. 


Report 6 - Arithmetic overflow 


31AD REPORT-6 RST 0008,ERROR-1 Call the error handling 
DEFB +05 routine. 


THE 'DIVISION' OPERATION 
(Offset 05 - see CALCULATE below: ‘division’) 


This subroutine first prepared the divisor by calling PREP-M/D, reporting arithmetic overflow if it is zero; then it prepares the dividend 
again calling PREP-M/D, returning if it is zero. Next fetches the two numbers from the calculator stack and divides their mantissa by 
means of the usual restoring division, trial subtracting the divisor from the dividend and restoring if there is carry, otherwise adding 1 to 
the quotient. The maximum precision is obtained for a 4-byte division, and after subtracting the exponents the subroutine exits by 


joining the later part of MULTIPLICATION. 


31AF division CALL 


3293,RE-ST-TWO 
DE,HL 
A 


30C0,PREP-M/D 
C,31AD,REPORT-6 
DE,HL 
30C0,PREP-M/D 

Cc 

HL 

DE 

HL 
2FBA,FETCH-TWO 
HL 


H,B 
L,c 


H,C 


L,B 


Use full floating-point forms. 
Exchange the pointers. 

A is set to Hex.00, so that the 
sign of the first number will go 
into A. 

Prepare the divisor and give the 
report for arithmetic overflow if 
it is zero. 

Exchange the pointers. 
Prepare the dividend and return 
if it is zero (result already zero). 
Exchange the pointers. 

Save the next literal address. 
Exchange the registers. 

Save pointer to divisor. 

Save pointer to dividend. 

Get the two numbers from the 
stack. 

Exchange the registers. 

Save M1 & N1 on the machine 
stack. 

Copy the four bytes of the 
dividend from registers B'C'CB 
(i.e. M2, M3, M4 & M5; see 
FETCH-TWO) to the registers 
H'L'HL. 


XOR A Clear A and reset the carry flag. 

LD B,+DF B will count upwards from -33 
to -1, twos complement, 
Hex. DF to FF, looping on 
minus and will jump again on 
zero for extra precision. 

JR 31E2,DIV-START Jump forward into the division 
loop for the first trial 
subtraction. 


Now enter the division loop. 


31D2 DIV-LOOP RLA Shift the result left into B'C'CA, 
RL Cc shifting out the bits already 
EXX there, picking up 1 from the 
RL Cc carry whenever it is set, and 
RL B rotating left each byte with 
EXX carry to achieve the 32 bit 

shift. 

31DB DIV-34TH ADD HL,HL Move what remains of the 
EXX dividend left in H'L'HL before 
ADC HL,HL the next trial subtraction; if a 
EXX bit drops into the carry, force 


no restore and a bit for the 
quotient, thus retrieving the lost 


JR C,31F2,SUBN-ONLY bit and allowing a full 32-bit 
divisor. 
31E2 DIV-START SBC HL,DE Trial subtract divisor in D'E'DE 
EXX from rest of dividend in H'L'HL; 
SBC HL,DE there is no initial carry (see 
EXX previous step). 
JR NC,31F9,NO-RSTORE Jump forward if there is no 
carry. 
ADD HL,DE Otherwise restore, i.e. add back 
EXX the divisor. Then clear the carry 
ADC HL,DE so that there will be no bit for 
EXX the quotient (the divisor 'did 
AND A not go’). 
JR 31FA,COUNT-ONE Jump forward to the counter. 
31F2 SUBN-ONLY AND A Just subtract with no restore 
SBC HL,DE and go on to set the carry flag 
EXX because the lost bit of the divi- 
SBC HL,DE dend is to be retrieved and used 
EXX for the quotient. 
31F9 NO-RSTORE SCF One for the quotient in B'C'CA. 
31FA COUNT-ONE_ INC B Step the loop count up by one. 
JP M,31D2,DIV-LOOP Loop 32 times for all bits. 
PUSH AF Save any 33rd bit for extra 
precision (the present carry). 
JR Z,31E2,DIV-START Trial subtract yet again for any 


34th bit; the PUSH AF above 
saves this bit too. 


Note: This jump is made to the wrong place. No 34th bit will ever be obtained without first shifting the dividend. Hence important results 
like 1/10 and 1/1000 are not rounded up as they should be. Rounding up never occurs when it depends on the 34th bit. The jump 
should have been to 31DB DIV-34TH above: i.e. byte 3200 hex in the ROM should read DA hex (128 decimal) instead of E1 hex (225 
decimal). 


LD EA Now move the four bytes that 
LD D,C form the mantissa bytes of the 
EXX result from B'C'CA to D'E'DE. 
LD E,C 

LD D,B 

POP AF Then put the 34th and 33rd bits 
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into ‘B' to be picked up on 


POP AF normalisation. 

RR B 

EXX 

POP BC Restore the exponent bytes, M1 
& N1. 

POP HL Restore the pointer to the result. 

LD A,B Get the difference between the 

SUB Cc two exponent bytes into A and 
set the carry flag if required. 

JP 313D,DIVN-EXPT Exit via DIVN-EXPT. 


THE 'INTEGER TRUNCATION TOWARDS ZERO' SUBROUTINE 

(Offset 3A - see CALCULATE below: 'truncate’) 

This subroutine (say I(x)) returns the result of integer truncation of x, the ‘last value’, towards zero. Thus |(2.4) is 2 and I(-2.4) is -2. The 
subroutine returns at once if x is in the form of a 'short integer’. It returns zero if the exponent byte of x if less than 81 hex (ABS x is less 
than 1). If I(x) is a 'short integer’ the subroutine returns it in that form. It returns x if the exponent byte is AO hex or greater (x has no 
significant non-integral part). Otherwise the correct number of bytes of x are set to zero and, if needed, one more byte is split with a 


mask. 


3214 truncate LD A,(HL) Get the exponent byte of X into 
A. 
AND A If Ais zero, return since x is 
RET Z already a small integer. 
CP +81 Compare e, the exponent, to 
81 hex. 
JR NC,3221,T-GR-ZERO Jump if e is greater than 80 hex. 
LD (HL),+00 Else, set the exponent to zero; 
LD A,+20 enter 32 decimal, 20 hex, into A 
JR 3272,NIL-BYTES and jump forward to NIL- 
BYTES to make all the bits of 
x be zero. 
3221 T-GR-ZERO CP +91 Compare e to 91 hex, 145 
decimal. 


3223 JR 


NZ,323F,T-SMALL 


Jump if e not 91 hex. 


The next 26 bytes seem designed to test whether x is in fact -65536 decimal, i.e. 91 80 00 00 00, and if it is, to set it to OO FF 00 00 00. 
This is a mistake. As already stated at byte 303B above, the Spectrum system cannot handle this number. The result here is simply to 
make INT (-65536) return the value -1. This is a pity, since the number would have been perfectly all right if left alone. The remedy 
would seem to be simply to omit the 28 bytes from 3223 above to 323E inclusive from the program. 


3225 INC HL HL is pointed at the fourth byte 
INC HL of x, where the 17 bits of the 
INC HL integer part of x end after the 
first bit. 
LD A,+80 The first bit is obtained in A. 
AND (HL) using 80 hex as a mask. 
DEC HL That bit and the previous 8 bits 
OR (HL) are tested together for zero. 
DEC HL HL is pointed at the second 
byte of x. 
JR NZ,3233,T-FIRST If already non-zero, the test can 
end. 
LD A,+80 Otherwise, the test for -65536 is 
XOR (HL) now completed: 91 80 00 00 00 
will leave the zero flag set now. 
3233 T-FIRST DEC HL HL is pointed at the first byte of 


Xx 


JR NZ,326C,T-EXPNENT If zero reset, the jump is made. 
LD (HL),A The first byte is set to zero. 
INC HL HL points to the second byte. 


LD (HL),+FF The second byte is set to FF. 


DEC HL HL again points to the first 
byte. 

LD A,+18 The last 24 bits are to be zero. 

JR 3272,NIL-BYTES The jump to NIL-BYTES 
completes the number 00 FF 
00 00 00. 


If the exponent byte of x is between 81 and 90 hex (129 and 144 decimal) inclusive, I(x) is a ‘small integer’, and will be compressed into 
one or two bytes. But first a test is made to see whether x is, after all, large. 


323F T-SMALL JR NC,326D,X-LARGE Jump with exponent byte 92 
or more (it would be better to 
jump with 91 too). 


PUSH DE Save STKEND in DE. 
CPL Range 129 <= A <= 144 becomes 
126 >= A >= 111. 
ADD A,+91 Range is now 15 dec >= A >= 0. 
INC HL Point HL at second byte. 
LD D,(HL) Second byte to D. 
INC HL Point HL at third byte. 
LD E,(HL) Third byte to E. 
DEC HL Point HL at first byte again. 
DEC HL 
LD C,+00 Assume a positive number. 
BIT 7,D Now test for negative (bit 7 
set). 
JR Z,3252, T-NUMERIC Jump if positive after all. 
DEC Cc Change the sign. 
3252 T-NUMERIC SET 7,D Insert true numeric bit, 1, in D. 
LD B,+08 Now test whether A >= 8 (one 
SUB B byte only) or two bytes needed. 
ADD A,B Leave A unchanged. 
JR C,325E,T-TEST Jump if two bytes needed. 
LD E,D Put the one byte into E. 
LD D,+00 And set D to zero. 
SUB B Now 1 <= A <= 7 to count the 
shifts needed. 
325E T-TEST JR Z,3267,T-STORE Jump if no shift needed. 
LD BA B will count the shifts. 
3261 T-SHIFT SRL D Shift D and E right B times to 
RR E produce the correct number. 
DJNZ 3261,T-SHIFT Loop until B is zero. 
3267 T-STORE CALL 2D8E,INT-STORE Store the result on the stack. 
POP DE Restore STKEND to DE. 
RET Finished. 


Large values of x remains to be considered. 


326C T-EXPNENT LD A,(HL) Get the exponent byte of x into 
A. 
326D X-LARGE SUB +A0 Subtract 160 decimal, AO hex, 
from e. 
RET P Return on plus - x has no 


significant non-integral part. (If 
the true exponent were reduced 
to zero, the 'binary point’ 

would come at or after the end 
of the four bytes of the man- 
tissa). 

NEG Else, negate the remainder; this 
gives the number of bits to 
become zero (the number of 
bits after the 'binary point’). 
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Now the bits of the mantissa can be cleared. 


3272 NIL-BYTES 
327E BYTE-ZERO 
3283 BITS-ZERO 
328A LESS-MASK 
3290 IX-END 


PUSH 


EX 


Z,3283,BITS-ZERO 


(HL),+00 
HL 
327E,BYTE-ZERO 
+07 


Z,3290,IX-END 


BA 
A,+FF 

A 
328A,LESS-MASK 


(HL) 
(HL),A 
DE,HL 
DE 


THE 'RE-STACK TWO' SUBROUTINE 


This subroutine is called to re-stack two ‘small integers’ in full five byte floating-point form for the binary operations of addition, 


Save the current value of DE 
(STKEND). 

Make HL point one past the fifth 
byte. 

HL now points to the fifth byte 
of x. 

Get the number of bits to be set 
to zero in B and divide it by B 
to give the number of whole 
bytes implied. 

Jump forward if the result is 
zero. 

Else, set the bytes to zero; 

B counts them. 


Get A (mod 8); this is the num- 
ber of bits still to be set to zero. 
Jump to the end if nothing 

more to do. 

B will count the bits now. 
Prepare the mask. 

With each loop a zero enters the 
mask from the right and thereby 
a mask of the correct length is 
produced. 

The unwanted bits of (HL) are 
lost as the masking is performed. 
Return the pointer to HL. 

Return STKEND to DE. 
Finished. 


multiplication and division. It does so by calling the following subroutine twice. 


3293 RE-ST-TWO 


3296 RESTK-SUB 


CALL 


EX 


3269,RESTK-SUB 


DE,HL 


THE 'RE-STACK TWO' SUBROUTINE 
(Offset 3D - see CALCULATE below: 're-stack') 


This subroutine is called to re-stack one number (which could be a ‘small integer’) in full five byte floating-point form. It is used for a 


Call the subroutine, and then 
continue into it for the second 
call. 

Exchange the pointers at each 
call. 


single number by ARCTAN and also, through the calculator offset, by EXP, LN and 'get-argt’. 


3297 RE-STACK 


LD 
AND 
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If the first byte is not zero, 
return - the number cannot be 
a'small integer’. 

Save the ‘other’ pointer in DE. 
Fetch the sign in C and the 
number in DE. 

Clear the A register. 

Point to the fifth location. 

Set the fifth byte to zero. 
Point to the fourth location. 
Set the fourth byte to zero: 
bytes 2 and 3 will hold the man- 
tissa. 


32B1 
32B2 


32BD 


RS-NRMLSE 
RSTK-LOOP 


RS-STORE 


B,+91 


A,D 

A 
NZ,32B1,RS-NRMLSE 
E 

B,D 


Z,32BD,RS-STORE 
D,E 


HL,HL 
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Set B to 145 dec for the 
exponent i.e. for up to 16 bits 
in the integer. 

Test whether D is zero so that 
at most 8 bits would be needed. 
Jump if more than 8 bits needed. 
Now test E too. 

Save the zero in B (it will give 
zero exponent if E too is zero). 
Jump if E is indeed zero. 
Move E to D (D was zero, E 
not). 

Set E to zero now. 

Set B to 137 dec for the 
exponent - no more than 8 bits 
now. 

Pointer to DE, number to HL. 
Decrement the exponent on 
each shift. 

Shift the number right one 
position. 

Until the carry is set. 

Sign bit to carry flag now. 
Insert it in place as the number 
is shifted back one place - 
normal now. 

Pointer to byte 4 back to HL. 
Point to the third location. 
Store the third byte. 

Point to the second location. 
Store the second byte. 

Point to the first location. 

Store the exponent byte. 
Restore the 'other' pointer to 
DE. 

Finished. 


THE FLOATING-POINT CALCULATOR 
THE TABLE OF CONSTANTS 


This first table holds the five useful and frequently needed numbers zero, one, a half, a half of pi and ten. The numbers are held in a 
condensed form which is expanded by the STACK LITERALS subroutine, see below, to give the required floating-point form. 


data: constant when expanded gives: 
exp. mantissa: (Hex.) 


32C5 stk-zero DEFB +00 zero 00 00 00 00 00 
DEFB +BO 
DEFB +00 


32C8 stk-one DEFB +40 one 00 00 01 00 00 
DEFB +BO 
DEFB +00 
DEFB +01 


32CC stk-half DEFB +30 a half 80 00 00 00 00 
DEFB +00 


32CE stk-pi/2 DEFB +F1 a half of pi 81 49 OF DA A2 
DEFB +49 
DEFB +0F 
DEFB +DA 
DEFB +A2 


32D3 stk-ten DEFB +40 ten 00 00 0A 00 00 
DEFB +BO 
DEFB +00 
DEFB +0A 


THE TABLE OF ADDRESSES: 

This second table is a look-up table of the addresses of the sixty-six operational subroutines of the calculator. The offsets used to index 
into the table are derived either from the operation codes used in SCANNING, see 2734, etc., or from the literals that follow a RST 0028 
instruction. 


offset label address offset label address 
32D7 00 jump-true  8F 3319 21 tan DA 
36 37 
32D9 01 exchange 3C 331B 22 asn 33 
34 38 
32DB 02 delete Al 331D 23 acs 43 
33 38 
32DD 03 subtract OF 331F 24 atn E2 
30 37 
32DF 04 multiply CA 3321 25 In 13 
30 37 
32E1 05 division AF 3323 26 exp C4 
31 36 
32E3 06 to-power 51 3325 27 int AF 
38 36 
32E5 07 or 1B 3327 28 sqr 4A 
35 38 
32E7 08 no-&-no 24 3329 29 sgn 92 
35 34 
32E9 09 no-l-eq| 3B 332B 2A abs 6A 
35 34 
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32EB OA no-gr-eq 3B 332D 2B peek AC 
3 


5 34 
32ED 0B nos-neql 3B 332F 2C in A5 
35 34 
32EF OC no-grtr 3B 3331 2D usr-no B3 
35 34 
32F1 OD no-less 3B 3333 2E str$ 1F 
35 36 
32F3 OE nos-eq| 3B 3335 2F chr$ cg 
35 35 
32F5 OF addition 14 3337 30 not 01 
30 35 
32F7 10 str-&-no 2D 3339 31 duplicate co 
35 33 
32F9 11 str-l-eq| 3B 333B 32 n-mod-m AO 
35 36 
32FB 12 str-gr-eq 3B 333D 33 jump 86 
35 36 
32FD 13 strs-neql 3B 333F 34 stk-data C6 
35 33 
32FF 14 str-grtr 3B 3341 35 dec-jr-nz TA 
35 36 
3301 15 str-less 3B 3343 36 less-0 06 
35 35 
3303 16 strs-eql 3B 3345 37 greater-0 FQ 
35 34 
3305 17 strs-add 9C 3347 38 end-calc 9B 
35 36 
3307 18 val$ DE 3349 39 get-argt 83 
35 37 
3309 19 usr-$ BC 334B 3A truncate 14 
34 32 
330B 1A read-in 45 334D 3B fp-calc-2 A2 
36 33 
330D 1B negate 6E 334F 3C e-to-fp 4F 
34 2D 
330F 1C code 69 3351 3D re-stack 97 
36 32 
3311 1D val DE 3353 3E series-06 49 
45 etc. 34 
3313 1E len 74 3355 3F stk-zero 1B 
36 etc. 34 
3315 1F sin B5 3357 40 st-mem-0 2D 
37 etc. 34 
3317 20 cos AA 3359 41 get-mem-0 OF 
37 etc. 34 


Note: The last four subroutines are multi-purpose subroutines and are entered with a parameter that is a copy of the right hand five bits 
of the original literal. The full set follows: 

Offset 3E: series-06, series-08, & series-0C; literals 86,88 & 8C. 

Offset 3F: stk-zero, stk-one, stk-half, stk-pi/2 & stk-ten; literals AO to A4. 


Offset 40: st-mem-0, st-mem-1, st-mem-2, st-mem-3, st-mem-4 & st-mem-5; 
literals CO to C5. 
Offset 41: get-mem-0, get-mem-1, get-mem-2, get-mem-3, get-mem-4 & get-mem-5; 


literals EO to E5. 
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THE 'CALCULATE' SUBROUTINE 
This subroutine is used to perform floating-point calculations. These can be considered to be of three types: 
i. Binary operations, e.g. addition, where two numbers in floating-point form are added together to give one ‘last value’. 
ii. | Unary operations, e.g. sin, where the ‘last value’ is changed to give the appropriate function result as a new ‘last value’. 
iii. | Manipulatory operations, e.g. st-mem-0, where the ‘last value’ is copied to the first five bytes of the calculator's memory area. 


The operations to be performed are specified as a series of data-bytes, the literals, that follow an RST 0028 instruction that calls this 
subroutine. The last literal in the list is always '38' which leads to an end to the whole operation. 

In the case of a single operation needing to be performed, the operation offset can be passed to the CALCULATOR in the B register, 
and operation '3B', the SINGLE CALCULATION operation, performed. 

It is also possible to call this subroutine recursively, i.e. from within itself, and in such a case it is possible to use the system variable 
BREG as a counter that controls how many operations are performed before returning. 

The first part of this subroutine is complicated but essentially it performs the two tasks of setting the registers to hold their required 
values, and to produce an offset, and possibly a parameter, from the literal that is currently being considered. 

The offset is used to index into the calculator's table of addresses, see above, to find the required subroutine address. 

The parameter is used when the multi-purpose subroutines are called. 


Note: A floating-point number may in reality be a set of string parameters. 


335B CALCULATE CALL 35BF,STK-PNTRS Presume a unary operation and 
therefore set HL to point to the 
start of the ‘last value’ on the 
calculator stack and DE one- 
past this floating-point number 


(STKEND). 
335E GEN-ENT-1 LD A,B Either, transfer a single 
LD (BREG),A operation offset to BREG 


temporarily, or, when using the 
subroutine recursively pass the 
parameter to BREG to be used 
as a counter. 


3362 GEN-ENT-2. EXX The return address of the sub- 
EX (SP),HL routine is store in H'L'. This 
EXX saves the pointer to the first 


literal. Entering the CALCUL- 
ATOR at GEN-ENT-2 is used 
whenever BREG is in use as a 
counter and is not to be 
disturbed. 

3365 RE-ENTRY LD (STKEND),DE A loop is now entered to handle 
each literal in the list that 
follows the calling instruction; 
so first, always set to STKEND. 


EXX Go to the alternate register set, 
LD A,(HL) and fetch the literal for this 
loop. 
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336C 


3380 


338C 


338E 


33A1 


SCAN-ENT 


FIRST-3D 


DOUBLE-A 


ENT-TABLE 


delete 


INC 


PUSH 


RET 


HL 


HL 


A 


P,3380,FIRST-3D 


D/A 
+60 


338E,ENT-TABLE 


+18 


NC,338C, DOUBLE-A 


BC,+FFFB 


LA 


DE,+32D7 


D,(HL) 
HL,+3365 
(SP),HL 
DE 


BC,(STKEND-hi) 
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Make H'L' point to the next 
literal. 

This pointer is saved briefly on 
the machine stack. SCAN-ENT 
is used by the SINGLE CAL- 
CULATION subroutine to find 
the subroutine that is required. 
Test the A register. 

Separate the simple literals from 
the multi-purpose literals. Jump 
with literals 00 - 3D. 

Save the literal in D. 

Continue only with bits 5 & 6. 
Four right shifts make them 
now bits 1 & 2. 


The offsets required are 3E-41. 
and L will now hold double the 
required offset. 

Now produce the parameter by 
taking bits 0,1,2,3 & 4 of the 
literal; keep the parameter in A. 
Jump forward to find the 
address of the required sub- 
routine. 

Jump forward if performing a 
unary operation. 

All of the subroutines that per- 
form binary operations require 
that HL points to the first operand 
and DE points to the second 
operand (the ‘last value’) as they 
appear on the calculator stack. 
As each entry in the table of 
addresses takes up two bytes the 
offset produced is doubled. 

The base address of the table. 
The address of the required 
table entry is formed in HL; and 
the required subroutine address 
is loaded into the DE register 
pair. 

The RE-ENTRY address of 3365 
is put on the machine stack 
underneath the subroutine 
address. 

Return to the main set of 
registers. 

The current value of BREG is 
transferred to the B register 
thereby returning the single 
operation offset. 

(See COMPARISON at 353B) 
An indirect jump to the 

required subroutine. 


THE 'DELETE' SUBROUTINE 
(Offset 02: 'delete) 


This subroutine contains only the single RET instruction at 33A1, above. The literal '02' results in this subroutine being considered as a 
binary operation that is to be entered with a first number addressed by the HL register pair and a second number addressed by the DE 
register pair, and the result produced again addressed by the HL register pair. 

The single RET instruction thereby leads to the first number being considered as the resulting ‘last value’ and the second number 
considered as being deleted. Of course the number has not been deleted from the memory but remains inactive and will probably soon 
be overwritten. 


THE 'SINGLE OPERATION' SUBROUTINE 
(Offset 3B: ‘fp-calc-2') 


This subroutine is only called from SCANNING at 2757 hex and is used to perform a single arithmetic operation. The offset that 
specifies which operation is to be performed is supplied to the calculator in the B register and subsequently transferred to the system 
variable BREG. 


The effect of calling this subroutine is essentially to make a jump to the appropriate subroutine for the single operation. 


33A2 fp-calc-2 POP AF Discard the RE-ENTRY address. 
LD A,(BREG) Transfer the offset to A. 
EXX Enter the alternate register set. 
JR 336C,SCAN-ENT Jump back to find the required 


address; stack the RE-ENTRY 
address and jump to the 
subroutine for the operation. 


THE 'TEST 5-SPACES' SUBROUTINE 
This subroutine tests whether there is sufficient room in memory for another 5-byte floating-point number to be added to the calculator 
stack. 


33A9 TEST-5-SP = PUSH DE Save DE briefly. 
PUSH HL Save HL briefly. 
LD BC,+0005 Specify the test is for 5 bytes. 
CALL 1F05,TEST-ROOM Make the test. 
POP HL Restore HL. 
POP DE Restore DE. 
RET Finished. 


THE 'STACK NUMBER’ SUBROUTINE 
This subroutine is called by BEEP and SCANNING twice to copy STKEND to DE, move a floating-point number to the calculator stack, 
and reset STKEND from DE. It calls 'MOVE-FP' to do the actual move. 


33B4 STACK-NUM LD DE,(STKEND) Copy STKEND to DE as 
destination address. 
CALL 33C0,MOVE-FP Move the number. 
LD (STKEND),DE Reset STKEND from DE. 
RET Finished. 
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THE 'MOVE A FLOATING-POINT NUMBER' SUBROUTINE 
(Offset 31: 'duplicate’) 


This subroutine moves a floating-point number to the top of the calculator stack (3 cases) or from the top of the stack to the calculator's 
memory area (1 case). It is also called through the calculator when it simply duplicates the number at the top of the calculator stack, the 
‘last value’, thereby extending the stack by five bytes. 


33C0 MOVE-FP CALL 33A9, TEST-5-SP A test is made for room. 
LDIR Move the five bytes involved. 
RET Finished. 


THE 'STACK LITERALS' SUBROUTINE 
(Offset 34: 'stk-data') 


This subroutine places on the calculator stack, as a ‘last value’, the floating-point number supplied to it as 2, 3, 4 or 5 literals. 

When called by using offset '34' the literals follow the '34' in the list of literals; when called by the SERIES GENERATOR, see below, 
the literals are supplied by the sub-routine that called for a series to be generated; and when called by SKIP CONSTANTS & STACK A 
CONSTANT the literals are obtained from the calculator's table of constants (32C5-32D6). 

In each case, the first literal supplied is divided by Hex.40, and the integer quotient plus 1 determines whether 1, 2, 3 or 4 further literals 
will be taken from the source to form the mantissa of the number. Any unfilled bytes of the five bytes that go to form a 5-byte floating- 
point number are set to zero. The first literal is also used to determine the exponent, after reducing mod Hex.40, unless the remainder 
is zero, in which case the second literal is used, as it stands, without reducing mod Hex.40. In either case, Hex.50 is added to the literal, 
giving the augmented exponent byte, e (the true exponent e' plus Hex.80). The rest of the 5 bytes are stacked, including any zeros 
needed, and the subroutine returns. 


33C6 STK-DATA LD H,D This subroutine performs the 
LD LE manipulatory operation of 
adding a ‘last value’ to the cal- 
culator stack; hence HL is set to 
point one-past the present 
‘last value’ and hence point to 


the result. 
33C8 STK-CONST CALL 33A9, TEST-5-SP Now test that there is indeed 

room. 

EXX Go to the alternate register set 

PUSH HL and stack the pointer to the 

EXX next literal. 

EX (SP),HL Switch over the result pointer 
and the next literal pointer. 

PUSH BC Save BC briefly. 

LD A,(HL) The first literal is put into A 

AND +C0 and divided by Hex.40 to give 

RLCA the integer values 0, 1, 2 or 3. 

RLCA 

LD CA The integer value is transferred 

INC Cc to C and incremented, thereby 
giving the range 1, 2, 3 or 4 for 
the number of literals that will 
be needed. 

LD A,(HL) The literal is fetch anew, 

AND +3F reduced mod Hex.40 and dis- 

JR NZ,33DE,-FORM-EXP carded as inappropriate if the 

INC HL remainder if zero; in which case 


195 


LD A,(HL) the next literal is fetched and 
used unreduced. 
33DE FORM-EXP ADD A,+50 The exponent, e, is formed by 
LD (DE),A the addition of Hex.50 and 
passed to the calculator stack as 
the first of the five bytes of the 


result. 

LD A,+05 The number of literals specified 

SUB Cc in C are taken from the source 

INC HL and entered into the bytes of 

INC DE the result. 

LD B,+00 

LDIR 

POP BC Restore BC. 

EX (SP),HL Return the result pointer to HL 

EXX and the next literal pointer to 

POP HL its usual position in H' & L’. 

EXX 

LD B,A The number of zero bytes 

XOR A required at this stage is given by 
33F1 STK-ZEROS DEC B 5-C-1; and this number of zeros 

RET Z is added to the result to make 

LD (DE),A up the required five bytes. 

INC DE 

JR 33F1, STK-ZEROS 


THE 'SKIP CONSTANTS' SUBROUTINE 

This subroutine is entered with the HL register pair holding the base address of the calculator's table of constants and the A register 
holding a parameter that shows which of the five constants is being requested. 

The subroutine performs the null operations of loading the five bytes of each unwanted constant into the locations 0000, 0001, 0002, 
0003 and 0004 at the beginning of the ROM until the requested constant is reached. 

The subroutine returns with the HL register pair holding the base address of the requested constant within the table of constants. 


33F7 SKIP-CONS AND A The subroutine returns if the 
33F8 SKIP-NEXT RET Z parameter is zero, or when the 
requested constant has been 
reached. 
PUSH AF Save the parameter. 
PUSH DE Save the result pointer. 
LD DE,+0000 The dummy address. 
CALL 33C8,STK-CONST Perform imaginary stacking of 
an expanded constant. 
POP DE Restore the result pointer. 
POP AF Restore the parameter. 
DEC A Count the loops. 
JR 33F8,SKIP-NEXT Jump back to consider the value 


of the counter. 


THE 'MEMORY LOCATION' SUBROUTINE 

This subroutine finds the base address for each five byte portion of the calculator's memory area to or from which a floating-point 
number is to be moved from or to the calculator stack. It does this operation by adding five times the parameter supplied to the base 
address for the area which is held in the HL register pair. 

Note that when a FOR-NEXT variable is being handled then the pointers are changed so that the variable is treated as if it were the 
calculator's memory area (see address 1D20). 


3406 LOC-MEM LD C,A Copy the parameter to C. 
RLCA Double the parameter. 
RLCA Double the result. 
ADD A,C Add the value of the parameter 


to give five times the original 
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value. 


LD CA This result is wanted in the 

LD B,+00 BC register pair. 

ADD HL,BC Produce the new base address. 
RET Finished. 


THE 'GET FROM MEMORY AREA’ SUBROUTINE 
(Offsets EO to E5: 'get-mem-0' to 'get-mem-5') 


This subroutine is called using the literals EO to E5 and the parameter derived from these literals is held in the A register. The 
subroutine calls MEMORY LOCATION to put the required source address into the HL register pair and MOVE A FLOATING-POINT 
NUMBER to copy the five bytes involved from the calculator's memory area to the top of the calculator stack to form a new ‘last value’. 


340F get-mem-0 PUSH DE Save the result pointer. 
etc. LD HL,(MEM) Fetch the pointer to the current 
memory area (see above). 
CALL 3406,LOC-MEM The base address is found. 
CALL 33C0,MOVE-FP The five bytes are moved. 
POP HL Set the result pointer. 
RET Finished. 


THE 'STACK A CONSTANT' SUBROUTINE 
(offsets AO to A4: 'stk-zero','stk-one’,'stk-half,,'stk-pi/2' & 'stk-ten’) 


This subroutine uses SKIP CONSTANTS to find the base address of the requested constants from the calculator's table of constants 
and then calls STACK LITERALS, entering at STK-CONST, to make the expanded form of the constant the ‘last value’ on the calculator 
stack. 


341B stk-zero LD H,D Set HL to hold the result 
etc. pointer. 
LD LE 
EXX Go to the alternate register set 
PUSH HL and save the next literal pointer. 
LD HL,+32C5 The base address of the calcul- 
ator's table of constants. 

EXX Back to the main set of registers. 
CALL 33F7,SKIP-CONS Find the requested base address. 
CALL 33C8,STK-CONST Expand the constant. 
EXX 
POP HL Restore the next literal pointer. 
EXX 
RET Finished. 


THE 'STORE IN MEMORY AREA' SUBROUTINE 
(Offsets CO to C5: 'st-mem-0' to 'st-mem-5') 


This subroutine is called using the literals CO to C5 and the parameter derived from these literals is held in the A register. This 
subroutine is very similar to the GET FROM MEMORY subroutine but the source and destination pointers are exchanged. 


342D st-mem-0 PUSH HL Save the result pointer. 
etc. EX DE,HL Source to DE briefly. 

LD HL,(MEM) Fetch the pointer to the current 
memory area. 

CALL 3406,LOC-MEM The base address is found. 

EX DE,HL Exchange source and 
destination pointers. 

CALL 33C0,MOVE-FP The five bytes are moved. 

EX DE,HL ‘Last value' +5, i.e. STKEND, to 
DE. 

POP HL Result pointer to HL. 

RET Finished. 
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Note that the pointers HL and DE remain as they were, pointing to STKEND-5 and STKEND respectively, so that the ‘last value’ 
remains on the calculator stack. If required it can be removed by using ‘delete’. 


THE 'EXCHANGE' SUBROUTINE 
(Offset 01: 'exchange') 


This binary operation 'exchanges' the first number with the second number, i.e. the topmost two numbers on the calculator stack are 
exchanged. 


343C EXCHANGE LD B,+05 There are five bytes involved. 
343E SWAP-BYTE LD A,(DE) Each byte of the second number. 
LD C,(HL) Each byte of the first number. 
EX DE,HL Switch source and destination. 
LD (DE),A Now to the first number. 
LD (HL),C Now to the second number 
INC HL Move to consider the next pair 
INC DE of bytes. 
DJNZ 343E,SWAP-BYTE Exchange the five bytes. 
EX DE,HL Get the pointers correct as the 
number 5 is an odd number. 
RET Finished. 


THE 'SERIES GENERATOR' SUBROUTINE 
(Offsets 86,88 & 8C: 'series-06','series-08' & 'series-0C') 


This important subroutine generates the series of Chebyshev polynomials which are used to approximate to SIN, ATN, LN and EXP 
and hence to derive the other arithmetic functions which depend on these (COS, TAN, ASN, ACS, ** and SQR). 
The polynomials are generated, for n=1,2,..., by the recurrence relation: 


Th+4(Z) = 22T,(Z) - Th_4(Z), where T,,(Z) is the nth Chebyshev polynomial in z. 


The series in fact generates: 
To, 274, 272..... . 2TH where n is 6 for SIN, 8 for EXP and 12 decimal, for LN and ATN. 


The coefficients of the powers of z in these polynomials may be found in the Handbook of Mathematical Functions by M. Abramowitz 
and |.A. Stegun (Dover 1965), page 795. 

BASIC programs showing the generation of each of the four functions are given here in the Appendix. 

In simple terms this subroutine is called with the ‘last value’ on the calculator stack, say Z, being a number that bears a simple 
relationship to the argument, say X, when the task is to evaluate, for instance, SIN X. The calling subroutine also supplies the list of 
constants that are to be required (six constants for SIN). The SERIES GENERATOR then manipulates its data and returns to the calling 
routine a ‘last value’ that bears a simple relationship to the requested function, for instance, SIN X. 

This subroutine can be considered to have four major parts: 


i. The setting of the loop counter: 
The calling subroutine passes its parameters in the A register for use as a counter. The calculator is entered at GEN-ENT-1 so that the 
counter can be set. 


3449 series-06 LD BA Move the parameter to B. 
etc. CALL 335E,GEN-ENT-1 In effect a RST 0028 
instruction but sets the counter. 


ii. The handling of the ‘last value’, Z: 
The loop of the generator requires 2*Z to be placed in mem-0, zero to be placed in mem-2 and the ‘last value’ to be zero. 
calculator stack 


DEFB +31 duplicate Z,Z 

DEFB +0F, addition 2*Z 

DEFB +C0,st-mem-0 2*Z mem-0 holds 2*Z 
DEFB +02,delete - 
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DEFB 
DEFB 


iii. The main loop: 


The series is generated by looping, using BREG as a counter; the constants in the calling subroutine are stacked in turn by calling 
STK-DATA,; the calculator is re-entered at GEN-ENT-2 so as not to disturb the value of BREG; and the series is built up in the form: 
B(R) = 2*Z*B(R-1) - B(R-2) + A(R), for R = 1,2,...,N, where A(1), A(2) 


+A0,stk-zero 
+C2,st-mem-2 


(SIN, ATN, LN and EXP) and B(0) = 0 = B(-1). 


The (R+1)th loop starts with B(R) on the stack and with 2*Z, B(R-2) and B(R-1) in mem-0, mem-1 and mem-2 respectively. 


0 mem-2 holds 0 


We A(N) are the constants supplied by the calling subroutine 


3453 G-LOOP DEFB +31 duplicate B(R),B(R) 
DEFB +E0,get-mem-0 B(R),B(R),2*Z 
DEFB +04, multiply B(R),2*B(R)*Z 
DEFB +E2,get-mem-2 B(R),2*B(R)*Z,B(R-1) 
DEFB +C1,st-mem-1 mem-1 holds B(R-1) 


DEFB +38,end-calc DEFB 


+03,subtract 


The next constant is placed on the calculator stack. 


CALL 


33C6,STK-DATA 


The Calculator is re-entered without disturbing BREG. 


B(R),2*B(R)*Z-B(R-1) 


B(R),2*B(R)*Z-B(R-1),A(R+1) 


CALL 3362,GEN-ENT-2 

DEFB +0F addition B(R),2*B(R)*Z-B(R-1)+A(R+1) 

DEFB +01,exchange 2*B(R)*Z-B(R-1)+A(R+1),B(R) 

DEFB +C2,st-mem-2 mem-2 holds B(R) 

DEFB +02,delete 2*B(R)*Z-B(R-1)+A(R!1) = 
B(R!1) 

DEFB +35,dec-jr-nz B(R+1) 

DEFB +EE,to 3453,G-LOOP 


iv. The subtraction of B(N-2): 
The loop above leaves B(N) on the stack and the required result is given by B(N) - B(N-2). 


DEFB +E1,get-mem-1 B(N),B(N-2) 
DEFB +03,subtract B(N)-B(N-2) 
DEFB +38,end-calc 

RET Finished 


THE 'ABSOLUTE MAGNITUDE' FUNCTION 

(Offset 2A: 'abs') 

This subroutine performs its unary operation by ensuring that the sign bit of a floating-point number is reset. 
‘Small integers' have to be treated separately. Most of the work is shared with the 'unary minus' operation. 


346A abs LD B,+FF 
JR 3474,NEG-TEST 


B is set to FF hex. 
The jump is made into ‘unary 
minus’. 


THE 'UNARY MINUS' OPERATION 

(Offset 1B: 'negate') 

This subroutine performs its unary operation by changing the sign of the ‘last value’ on the calculator stack. 

Zero is simply returned unchanged. Full five byte floating-point numbers have their sign bit manipulated so that it ends up reset (for 
‘abs') or changed (for 'negate'). ‘Small integers’ have their sign byte set to zero (for 'abs') or changed (for 'negate’). 


346E NEGATE CALL 34E9, TEST-ZERO 
RET Cc 


If the number is zero, the 
subroutine returns leaving 
00 00 00 00 00 unchanged. 
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LD B,+00 B is set to +00 hex for 'negate’. 


'ABS' enters here. 


3474 NEG-TEST LD A,(HL) If the first byte is zero, the 

AND A jump is made to deal with a 

JR Z,3483, INT-CASE ‘small integer’. 

INC HL Point to the second byte. 

LD A,B Get +FF for ‘abs', +00 for 
‘negate’. 

AND +80 Now +80 for ‘abs’, +00 for 
‘negate’. 

OR (HL) This sets bit 7 for ‘abs’, but 
changes nothing for 'negate’. 

RLA Now bit 7 is changed, leading to 

CCF bit 7 of byte 2 reset for ‘abs’, 

RRA and simply changed for ‘negate’. 

LD (HL),A The new second byte is stored. 

DEC HL HL points to the first byte 
again. 

RET Finished. 


The ‘integer case' does a similar operation with the sign byte. 


3483 INT-CASE PUSH DE Save STKEND in DE. 

PUSH HL Save pointer to the number in 
HL. 

CALL 2D7F,INT-FETCH Fetch the sign in C, the number 
in DE. 

POP HL Restore the pointer to the 
number in HL. 

LD A,B Get +FF for ‘abs', +00 for 
‘negate’. 

OR Cc Now +FF for ‘abs’, no change for 
‘negate’ 

CPL Now +00 for 'abs', and a changed byte 

LD CA for 'negate’: store it in C. 

CALL 2D8E,INT-STORE Store result on the stack. 

POP DE Return STKEND to DE. 

RET 


THE 'SIGNUM' FUNCTION 
(Offset 29: 'sgn') 


This subroutine handles the function SGN X and therefore returns a ‘last value' of 1 if X is positive, zero if X is zero and -1 if X is 
negative. 


3492 sgn CALL 34E9, TEST-ZERO If X is zero, just return with 

RET Cc zero as the ‘last value’. 

PUSH DE Save the pointer to STKEND. 

LD DE,+0001 Store 1 in DE. 

INC HL Point to the second byte of X. 

RL (HL) Rotate bit 7 into the carry flag. 

DEC HL Point to the destination again. 

SBC A,A Set C to zero for positive X and 

LD CA to FF hex for negative X. 

CALL 2D8E,INT-STORE Stack 1 or -1 as required. 

POP DE Restore the pointer to 
STKEND' 

RET Finished. 


THE 'IN' FUNCTION 
(Offset 2C: ‘in') 


This subroutine handles the function IN X. It inputs at processor level from port X, loading BC with X and performing the instruction IN 
A,(C). 
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34A5 in CALL 1E99,FIND-INT2 The ‘last value’, X, is 
compressed into BC. 
The signal is received. 


Jump to stack the result. 


IN A,(C) 
JR 34B0,IN-PK-STK 


THE 'PEEK' FUNCTION 
(Offset 2B: 'peek’) 


This subroutine handles the function PEEK X. The ‘last value’ is unstacked by calling FIND-INT2 and replaced by the value of the 
contents of the required location. 


34AC peek CALL 1E99,FIND-INT2 Evaluate the ‘last value’, 
rounded to the nearest integer; 
test that it is in range and return 
it in BC. 
LD A,(BC) Fetch the required byte. 


34B0 IN-PK-STK = JP 2D28,STACK-A Exit by jumping to STACK-A. 
THE 'USR' FUNCTION 


(Offset 2D: 'usr-no') 


This subroutine (‘'USR number’ as distinct from 'USR string’) handles the function USR X, where X is a number. The value of X is 
obtained in BC, a return address is stacked and the machine code is executed from location X. 


34B3 usr-no CALL 1E99,FIND-INT2 Evaluate the ‘last value’, 

rounded to the nearest integer; 
test that it is in range and return 
itin BC. 

LD HL,+2D2B Make the return address be that 

PUSH HL of the subroutine STACK-BC. 

PUSH BC Make an indirect jump to the 

RET required location. 


Note: It is interesting that the IY register pair is re-initialised when the return to STACK-BC has been made, but the important H'L' that 
holds the next literal pointer is not restored should it have been disturbed. For a successful return to BASIC, H'L' must on exit from the 
machine code contain the address in SCANNING of the 'end-calc' instruction, 2758 hex (10072 decimal). 


THE 'USR-STRING' FUNCTION 
(Offset 19: 'usr-$') 


This subroutine handles the function USR X$, where X$ is a string. The subroutine returns in BC the address of the bit pattern for the 
user-defined graphic corresponding to X$. It reports error A if X$ is not a single letter between a and u or a user-defined graphic. 


34BC usr-$ CALL 2BF1,STK-FETCH Fetch the parameters of the 

string X$. 

DEC BC Decrease the length by 1 to test 
it. 

LD A,B If the length was not 1, then 

OR Cc jump to give error report A. 

JR NZ,34E7,REPORT-A 

LD A,(DE) Fetch the single code of the 
string. 

CALL 2C8D,ALPHA Does it denote a letter? 

JR C,34D3,USR-RANGE If so, jump to gets its address. 

SUB +90 Reduce range for actual user- 
defined graphics to 0 - 20 
decimal. 

JR C,34E7,REPORT-A Give report A if out of range. 

CP +15 Test the range again. 

JR NC,34E7,REPORT-A Give report A if out of range. 

INC A Make range of user-defined 


graphics 1 to 21 decimal, as for 
a tou. 


34D3 USR-RANGE DEC 


34E4 USR-STACK JP 


REPORT A - Invalid argument. 


34E7 REPORT-A = RST 


DEFB 


BC,(UDG) 


C,A 
NC,34E4,USR-STACK 
B 


2D2B,STACK-BC 


0008,ERROR-1 
+09 


THE 'TEST-ZERO' SUBROUTINE 


Now make the range 0 to 20 
decimal in each case. 
Multiply by 8 to get an offset 
for the address. 


Test the range of the offset. 
Give report A if out of range. 
Fetch the address of the first 
user-defined graphic in BC. 
Add C to the offset. 

Store the result back in C. 
Jump if there is no carry. 
Increment B to complete the 
address. 

Jump to stack the address. 


Call the error handling 
routine. 


This subroutine is called at least nine times to test whether a floating-point number is zero. This test requires that the first four bytes of 
the number should each be zero. The subroutine returns with the carry flag set if the number was in fact zero. 


34E9 TEST-ZERO PUSH HL Save HL on the stack. 

PUSH BC Save BC on the stack. 

LD BA Save the value of A in B. 

LD A,(HL) Get the first byte. 

INC HL Point to the second byte. 

OR (HL) OR first byte with second. 

INC HL Point to the third byte. 

OR (HL) OR the result with the third 
byte. 

INC HL Point to the fourth byte. 

OR (HL) OR the result with the fourth 
byte. 

LD A,B Restore the original value of A. 

POP BC And of BC. 

POP HL Restore the pointer to the 
number to HL. 

RET NZ Return with carry reset if any of 
the four bytes was non-zero. 

SCF Set the carry flag to indicate 

RET that the number was zero, and 


return. 


THE 'GREATER THAN ZERO' OPERATION 
(Offset 37: 'greater-0') 


This subroutine returns a ‘last value’ of one if the present ‘last value’ is greater than zero and zero otherwise. It is also used by other 
subroutines to ‘jump on plus’. 


34F9 GREATER-0 CALL 34E9, TEST-ZERO Is the 'last-value' zero? 
RET Cc If so, return. 
LD A,+FF Jump forward to LESS THAN 
JR 3507,SIGN-TO-C ZERO but signal the opposite 


action is needed. 


THE 'NOT' FUNCTION 
(Offset 30: 'not') 


This subroutine returns a ‘last value’ of one if the present ‘last value’ is zero and zero otherwise. It is also used by other subroutines to 
‘jump on zero’. 
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3501 NOT CALL 34E9, TEST-ZERO The carry flag will be set only if 
the ‘last value’ is zero; this gives 
the correct result. 

JR 350B,FP-0/1 Jump forward. 


THE 'LESS THAN ZERO' OPERATION 
(Offset 36: 'less-0') 


This subroutine returns a ‘last value’ of one if the present ‘last value’ is less than zero and zero otherwise. It is also used by other 
subroutines to jump on minus’. 


3506 less-0 XOR A Clear the A register. 

3507 SIGN-TO-C — INC HL Point to the sign byte. 
XOR (HL) The carry is reset for a positive 
DEC HL number and set for a negative 
RLCA number; when entered from 


GREATER-O0 the opposite sign 
goes to the carry. 


THE 'ZERO OR ONE’ SUBROUTINE 
This subroutine sets the ‘last value’ to zero if the carry flag is reset and to one if it is set. When called from 'E-TO-FP' however it creates 
the zero or one not on the stack but in mem-0. 


350B FP-0/1 PUSH HL Save the result pointer. 
LD A,+00 Clear A without disturbing the 
carry. 
LD (HL),A Set the first byte to zero. 
INC HL Point to the second byte. 
LD (HL),A Set the second byte to zero. 
INC HL Point to the third byte. 
RLA Rotate the carry into A, making 


A one if the carry was set, but 
zero if the carry was reset. 


LD (HL),A Set the third byte to one or 
zero. 

RRA Ensure that A is zero again. 

INC HL Point to the fourth byte. 

LD (HL),A Set the fourth byte to zero. 

INC HL Point to the fifth byte. 

LD (HL),A Set the fifth byte to zero. 

POP HL Restore the result pointer. 

RET 


THE 'OR' OPERATION 
(Offset 07: 'or'’) 


This subroutine performs the binary operation 'X OR Y' and returns X if Y is zero and the value 1 otherwise. 


351B or EX DE,HL Point HL at Y, the second 

number. 

CALL 34E9, TEST-ZERO Test whether Y is zero. 

EX DE,HL Restore the pointers. 

RET Cc Return if Y was zero; X is now 
the ‘last value’. 

SCF Set the carry flag and jump back 

JR 350B,FP-0/1 to set the last value’ to 1. 


THE 'NUMBER AND NUMBER' OPERATION 
(Offset 08: 'no-&-no') 


This subroutine performs the binary operation 'X AND Y' and returns X if Y is non-zero and the value zero otherwise. 


203 


3524 no-&-no EX DE,HL 
CALL 34E9, TEST-ZERO 
EX DE,HL 
RET NC 
AND A 
JR 350B,FP-0/1 


THE 'STRING AND NUMBER' OPERATION 
(Offset 10: 'str-&-no') 


Point HL at Y, DE at X. 

Test whether Y is zero. 

Swap the pointers back. 
Return with X as the ‘last value 
if Y was non-zero. 

Reset the carry flag and jump 
back to set the ‘last value’ to 
zero. 


This subroutine performs the binary operation 'X$ AND Y' and returns X$ if Y is non-zero and a null string otherwise. 


352D _str-&-no EX DE,HL 
CALL 34E9, TEST-ZERO 
EX DE,HL 
RET NC 
PUSH DE 
DEC DE 
XOR A 
LD (DE),A 
DEC DE 
LD (DE),A 
POP DE 
RET 


THE 'COMPARISON' OPERATIONS 


Point HL at Y, DE at X$ 

Test whether Y is zero. 

Swap the pointers back. 

Return with X$ as the ‘last 
value' if Y was non-zero. 

Save the pointer to the number. 
Point to the fifth byte of the 
string parameters i.e. length- 
high. 

Clear the A register. 
Length-high is now set to zero. 
Point to length-low. 

Length-low is now set to zero. 
Restore the pointer. 

Return with the string 
parameters being the ‘last value’. 


(Offsets 09 to OE & 11 to 16: 'no-l-eql', 'no-gr-eq’, 'nos-neql’, 'no-grtr’, 'no-less', 'nos-eq|’, 'str-l-eql', 'str-gr-eq', 'strs-neql', 'str-grtr’, 'str- 


less' & 'strs-eql') 


This subroutine is used to perform the twelve possible comparison operations. The single operation offset is present in the B register at 


the start of the subroutine. 


353B no-l-eql LD A,B 
etc. 
SUB +08 
BIT 2,A 
JR NZ,3543,EX-OR-NOT 
DEC A 


3543 EX-OR-NOT RRCA 


JR NC,354E,NU-OR-STR 
PUSH AF 
PUSH HL 
CALL 343C,EXCHANGE 
POP DE 
EX DE,HL 
POP AF 
354E NU-OR-STR | BIT 2,A 
JR NZ,3559,STRINGS 
RRCA 
PUSH AF 


CALL 300F, SUBTRACT 


The single offset goes to the 

A register. 

The range is now 01-06 & 
09-0E. 

This range is changed to: 
00-02, 04-06, 08-0A & 

OC-0E. 

Then reduced to 00-07 with 
carry set for 'greater than or 
equal to' & ‘less than’; the 
operations with carry set are 
then treated as their 
complementary operation once 
their values have been exchanged. 


The numerical comparisons are 
now separated from the string 
comparisons by testing bit 2. 
The numerical operations now 
have the range 00-01 with carry 
set for ‘equal’ and 'not equal’. 
Save the offset. 

The numbers are subtracted for 


3559 


3564 


356B 


3572 


3575 


3585 


3588 


358C 


STRINGS 


BYTE-COMP 


SECND-LOW 


BOTH-NULL 


SEC-PLUS 


FRST-LESS 


STR-TEST 


END-TESTS 


358C,END-TESTS 


AF 
2BF1,STK-FETCH 
DE 
BC 
2BF1,STK-FETCH 
HL 


A,B 
NZ,3575,SEC-PLUS 
Cc 

BC 


Z,3572,BOTH-NULL 
AF 


3588,STR-TEST 
AF 

3588,STR-TEST 

Cc 
Z,3585,FRST-LESS 


A,(DE) 
(HL) 
C,3585,FRST-LESS 
NZ,356B,SECND-LOW 


3564,BYTE-COMP 
BC 

AF 

A 


AF 
0028,FP-CALC 
+A0,stk-zero 
+38,end-calc 
AF 

AF 
C,3501,NOT 
AF 

AF 
NC,34F9,GREATER-O 
AF 


NC,3501,NOT 


THE 'STRING CONCATENATION' OPERATION 
(Offset 17: 'strs-add') 


This subroutine performs the binary operation 'A$+B$. The parameters for these strings are fetched and the total length found. 
Sufficient room to hold both the strings is made available in the work space and the strings are copied over. The result of this 


the final tests. 

The string comparisons now 
have the range 02-03 with carry 
set for 'equal' and 'not equal’. 
Save the offset. 

The lengths and starting 
addresses of the strings are 
fetched from the calculator 
stack. 

The length of the second string. 


Jump unless the second string 
is null. 

Here the second string is either 
null or less than the first. 


The carry is complemented to 
give the correct test results. 
Here the carry is used as it 
stands. 


The first string is now null, 

the second not. 

Neither string is null, so their 
next bytes are compared. 

The first byte is less. 

The second byte is less. 

The bytes are equal; so the 
lengths are decremented and a 
jump is made to BYTE-COMP 
to compare the next bytes of 
the reduced strings. 


The carry is cleared here for the 
correct test results. 

For the string tests, a zero is 
put on to the calculator stack. 


These three tests, called as 
needed, give the correct results 
for all twelve comparisons. The 
initial carry is set for 'not equal’ 
and ‘equal’, and the final carry 
is set for 'greater than’, ‘less 
than’ and ‘equal’. 


Finished. 


subroutine is therefore to produce a temporary variable A$+B$ that resides in the work space. 
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359C strs-add CALL 


35B7 OTHER-STR POP 


2BF1,STK-FETCH 
DE 
BC 
2BF1,STK-FETCH 


C,L 
0030,BC-SPACES 


2AB2,STK-STORE 


Z,35BF,STK-PNTRS 


THE 'STK-PNTRS' SUBROUTINE 


This subroutine resets the HL register pair to point to the first byte of the ‘last value’, i.e. STKEND-5, and the DE register pair to point 
one-past the ‘last value’, i.e. STKEND. 


35BF STK-PNTRS LD 


LD 
PUSH 
ADD 
POP 
RET 


THE 'CHRS$' FUNCTION 
(Offset 2F: 'chrs') 


HL,(STKEND) 


DE,+FFFB 
HL 

HL,DE 

DE 


The parameters of the second 
string are fetched and saved. 


The parameters of the first 
string are fetched. 


The lengths are now in HL and 
BC. 

The parameters of the first 
string are saved. 

The total length of the two 
strings is calculated and passed 
to BC. 

Sufficient room is made 
available. 

The parameters of the new 
string are passed to the 
calculator stack. 

The parameters of the first 
string are retrieved and the 
string copied to the work space 
as long as it is not a null string. 


Exactly the same procedure is 
followed for the second string 
thereby giving 'A$+B$"'. 


Fetch the current value of 
STKEND. 

Set DE to -5, twos complement. 
Stack the value for STKEND. 
Calculate STKEND-5. 

DE now holds STKEND and HL 


This subroutine handles the function CHR$ X and creates a single character string in the work space. 


35C9 chrs 


JR 


CALL 2DD5,FP-TO-A 


C,35DC,REPORT-B 


NZ,35DC,REPORT-B 
AF 

BC,+0001 

AF 

(DE),A 


2AB2,STK-STORE 


DE,HL 


The ‘last value’ is compressed 
into the A register. 

Give the error report if X was 
greater than 255 decimal, or 

X was a negative number. 

Save the compressed value of X. 
Make one space available in the 
Fetch the value. 

Copy the value to the work 
space. 

Pass the parameters of the new 
string to the calculator stack. 
Reset the pointers. 

Finished. 


REPORT-B - Integer out of range 
35DC REPORT-B RST 0008,ERROR-1 Call the error handling 
DEFB +0A routine. 


THE 'VAL' AND 'VAL$' FUNCTION 
(Offsets 1D: 'val' and 18: 'val$') 


This subroutine handles the functions VAL X$ and VAL$ X$. When handling VAL X$, it return a ‘last value' that is the result of 
evaluating the string (without its bounding quotes) as a numerical expression. when handling VAL$ X$, it evaluates X$ (without its 
bounding quotes) as a string expression, and returns the parameters of that string expression as a ‘last value’ on the calculator stack. 


35DE val LD HL,(CH-ADD) The current value of CH-ADD is 
(also val$) PUSH HL preserved on the machine stack. 

LD A,B The ‘offset' for 'val' or 'val$' 
must be in the B register; it is 
now copied to A. 

ADD A,+E3 Produce +00 and carry set for 
‘val’, +FB and carry reset for 
‘val$'. 

SBC A,A Produce +FF (bit 6 therefore 
set) for 'val', but +00 (bit 6 
reset) for 'val$'. 

PUSH AF Save this ‘flag' on the machine 
stack. 

CALL 2BF1,STK-FETCH The parameters of the string are 

PUSH DE fetched; the starting address is 

INC BC saved; one byte is added to the 

RST 0030,BC-SPACES length and room made available 
for the string (+1) in the work 
space. 

POP HL The starting address of the 
string goes to HL as a source 
address. 

LD (CH-ADD),DE The pointer to the first new 

PUSH DE space goes to CH-ADD and to 
the machine stack. 

LDIR The string is copied to the work 
space, together with an extra 
byte. 

EX DE,HL Switch the pointers. 

DEC HL The extra byte is replaced by a 

LD (HL),+0D ‘carriage return’ character. 

RES 7,(FLAGS) The syntax flag is reset and the 

CALL 24FB,SCANNING string is scanned for correct 
syntax. 

RST 0018,GET-CHAR The character after the string is 
fetched. 

CP +0D A check is made that the end of 
the expression has been reached. 

JR NZ,360C,V-RPORT-C If not, the error is reported. 

POP HL The starting address of the 
string is fetched. 

POP AF The ‘flag’ for 'val/val$' is 

XOR (FLAGS) fetched and bit 6 is compared 

AND +40 with bit 6 of the result of the 


360C V-RPORT-C JP 


NZ,1C8A,REPORT-C 


(CH-ADD),HL 
7,(FLAGS) 


syntax scan. 

Report the error if they do not 
match. 

Start address to CH-ADD again. 
The flag is set for line 
execution. 


THE 'STR$' FUNCTION 
(Offset 2E: 'str$') 


This subroutine handles the function STR$ X and returns a ‘last value’ which is a set of parameters that define a string containing what 
would appear on the screen if X were displayed by a PRINT command. 


361F str$ LD 


24FB,SCANNING 


HL 
(CH-ADD),HL 
35BF,STK-PNTRS 


BC,+0001 
0030,BC-SPACES 
(K-CUR),HL 

HL 

HL,(CURCHL) 

HL 

A,+FF 
1601,CHAN-OPEN 


2DE3,PRINT-FP 


HL 
1615,CHAN-FLAG 


DE 
HL,(K-CUR) 
HL,DE 

or 
2AB2,STK-STO-$ 


DE,HL 


The string is treated as a 'next 
expression’ and a ‘last value" 
produced. 

The original value of CH-ADD is 
restored. 

The subroutine exits via STK- 
PNTRS which resets the pointers. 


One space is made in the work 
space and its address is copied 
to K-CUR, the address of the 
cursor. 

This address is saved on the 
stack too. 

The current channel address is 
saved on the machine stack. 
Channel 'R' is opened, allowing 
the string to be ‘printed’ out 
into the work space. 

The ‘last value’, X, is now 
printed out in the work space 
and the work space is expanded 
with each character. 

Restore CURCHL to HL and 
restore the flags that are 
appropriate to it. 

Restore the start address of the 
string. 

Now the cursor address is one 
past the end of the string and 
hence the difference is the 
length. 

Transfer the length to BC. 


Pass the parameters of the new 
string to the calculator stack. 
Reset the pointers. 

Finished. 


Note: See PRINT-FP for an explanation of the 'PRINT "A"+STR$ 0.1' error. 


THE 'READ-IN' SUBROUTINE 


(Offset 1A: 'read-in’) 


This subroutine is called via the calculator offset through the first line of the S-INKEY$ routine in SCANNING. It appears to provide for 
the reading in of data through different streams from those available on the standard Spectrum. Like INKEY$ the subroutine returns a 


string. 


3645 read-in CALL 


1E94,FIND-INT1 


+10 
NC,1E9F,REPORT-B 
HL,(CURCHL) 

HL 
1601,CHAN-OPEN 


The numerical parameter is 
compressed into the A register. 
Is it smaller than 16 decimal? 
If not, report the error. 

The current channel address is 
saved on the machine stack. 
The channel specified by the 
parameter is opened. 


CALL 15E6,INPUT-AD 


LD BC,+0000 
JR NC,365F,R-I-STORE 
INC S 
RST 0030,BC-SPACES 
LD (DE),A 

365F RISTORE CALL 2AB2,STK-STO-$ 
POP HL 
CALL 1615,CHAN-FLAG 
JP 35BF,STK-PNTRS 


THE 'CODE' FUNCTION 
(Offset 1C: 'code') 


The signal is now accepted, like 
a ‘key-value’. 

The default length of the 
resulting string is zero. 

Jump if there was no signal. 

Set the length to 1 now. 

Make a space in the work space. 
Put the string into it. 

Pass the parameters of the string 
to the calculator stack. 

Restore CURCHL and the 
appropriate flags. 

Exit, setting the pointers. 


This subroutine handles the function CODE A$ and returns the Spectrum code of the first character in A$, or zero if A$ should be null. 


3669 code CALL 2BF1,STK-FETCH 
LD A.B 
OR e 
JR Z,3671,STK-CODE 
LD A,(DE) 

3671 STK-CODE JP 2D28,STACK-A 


THE 'LEN' FUNCTION 
(Offset 1E: 'len') 


The parameters of the string are 
fetched. 

The length is tested and the A 
register holding zero is carried 
forward is A$ is a null string. 
The code of the first character is 
put into A otherwise. 

The subroutine exits via 
STACK-A which gives the 
correct ‘last value’. 


This subroutine handles the function LEN A$ and returns a ‘last value' that is equal to the length of the string. 


3674 len CALL 2BF1,STK-FETCH 


JP 2D2B,STACK-BC 


THE 'DECREASE THE COUNTER' SUBROUTINE 


(Offset 35: 'dec-jr-nz’) 


The parameters of the string are 
fetched. 

The subroutine exits via 
STACK-BC which gives the 
correct ‘last value’. 


This subroutine is only called by the SERIES GENERATOR subroutine and in effect is a 'DJNZ' operation but the counter is the system 


variable, BREG, rather than the B register. 


367A dec-jr-nz EXX 
PUSH HL 
LD HL,+5C67 
DEC (HL) 
POP HL 
JR NZ,3687,JUMP-2 
INC HL 
EXX 
RET 


THE 'JUMP' SUBROUTINE 
(Offset 33: 'jump') 


Go to the alternative register set 
and save the next literal pointer 
on the machine stack. 

Make HL point to BREG. 
Decrease BREG. 

Restore the next literal pointer. 
The jump is made on non-zero. 
The next literal is passed over. 
Return to the main register set. 
Finished. 


This subroutine executes an unconditional jump when called by the literal '33'. It is also used by the subroutines DECREASE THE 


COUNTER and JUMP ON TRUE. 
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3686 JUMP EXX Go to the next alternate register set. 


3687 JUMP-2 LD E,(HL) The next literal (jump length) is 
put in the E' register. 
LD A,E The number 00 hex or FF hex 


RLA is formed in A according as E' 


SBC A,A is positive or negative, and is 
LD DA then copied to D'. 

ADD HL,DE The registers H' & L' now hold 
EXX the next literal pointer. 

RET Finished. 


THE 'JUMP ON TRUE' SUBROUTINE 
(Offset 00: 'jump-true’) 


This subroutine executes a conditional jump if the ‘last value’ on the calculator stack, or more precisely the number addressed currently 
by the DE register pair, is true. 


368F jump-true INC DE Point to the third byte, which is 

INC DE zero or one. 

LD A,(DE) Collect this byte in the A 
register. 

DEC DE Point to the first byte once 

DEC DE again. 

AND A Test the third byte: is it zero? 

JR NZ,3686,JUMP Make the jump if the byte is 
non-zero, i.e. if the number is 
not-false. 

EXX Go to the alternate register set. 

INC HL Pass over the jump length. 

EXX Back to the main set of 
registers. 

RET Finished. 


THE 'END-CALC' SUBROUTINE 
(Offset 38: 'end-calc') 


This subroutine ends a RST 0028 operation. 


369B end-calc POP AF The return address to the 

calculator (‘RE-ENTRY’) is 
discarded. 

EXX Instead, the address in H'L' is 

EX (SP).HL put on the machine stack and 

EXX an indirect jump is made to it. 
H'L' will now hold any earlier 
address in the calculator chain 
of addresses. 

RET Finished. 


THE 'MODULUS' SUBROUTINE 


(Offset 32: 'n-mod-m’') 


This subroutine calculates M (mod M), where M is a positive integer held at the top of the calculator stack, the ‘last value’, and N is the 
integer held on the stack beneath M. 

The subroutine returns the integer quotient INT (N/M) at the top of the calculator stack, the ‘last value’, and the remainder N-INT (N/M) 
in the second place on the stack. 


This subroutine is called during the calculation of a random number to reduce N mod 65537 decimal. 


36A0 n-mod-m RST 0028,FP-CALC N,M 
DEFB +C0,st-mem-0 N,M mem-0 holds M 
DEFB +02,delete N 
DEFB +31 ,duplicate N,N 
DEFB +E0,get-mem-0 N,N, M 
DEFB +05,division N, N/M 
DEFB +27,int N, INT (N/M) 
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DEFB +E0,get-mem-0 N, INT (N/M),M 


DEFB +01,exchange N, M, INT (N/M) 

DEFB +C0,st-mem-0 N, M, INT (N/M) mem-0 holds 
INT (N/M) 

DEFB +04, multiply N, M*INT (N/M) 

DEFB +03,subtract n-M*INT (N/M) 

DEFB +E0,get-mem-0 n-M*INT (N/M), INT (N/M) 

DEFB +38,end-calc 

RET Finished. 


THE 'INT' FUNCTION 
(Offset 27: ‘int’) 


This subroutine handles the function INT X and returns a ‘last value’ that is the 'integer part' of the value supplied. Thus INT 2.4 gives 2 
but as the subroutine always rounds the result down INT -2.4 gives -3. 

The subroutine uses the INTEGER TRUNCATION TOWARDS ZERO subroutine at 3214 to produce | (X) such that | (2.4) gives 2 and | 
(-2.4) gives -2. Thus, INT X is gives by | (X) for values of X that are greater than or equal to zero, and | (X)-1 for negative values of X 
that are not already integers, when the result is, of course, | (X). 


36AF int RST 0028,FP-CALC X 
DEFB +31,duplicate X, X 
DEFB +36,less-0 X, (1/0) 
DEFB +00,jump-true x 
DEFB +04, to 36B7,X-NEG X 


For values of X that have been shown to be greater than or equal to zero there is no jump and | (X) is readily found. 


DEFB +3A,truncate | (X) 
DEFB +38,end-calc 
RET Finished. 
when X is a negative integer | (X) is returned, otherwise | (X)-1 is returned. 
36B7 X-NEG DEFB +31 ,duplicate X, X 
DEFB +3A,truncate X, | (X) 
DEFB +C0,st-mem-0 X, 1 (X) =mem-0 holds | (X) 
DEFB +03,subtract X-I (X) 
DEFB +E0,get-mem-0 X-I (X), | (X) 
DEFB +01,exchange | (X), X-1 (X) 
DEFB +30,not | (X), (1/0) 
DEFB +00,jump-true | (X) 
DEFB +03,to 36C2,EXIT | (X) 


The jump is made for values of X that are negative integers, otherwise there is no jump and | (X)-1 is calculated. 


DEFB +A1,stk-one 1 (X), 1 
DEFB +03,subtract 1 (X)-1 


In either case the subroutine finishes with; 


36C2.—s EXIT DEFB +38,end-calc 1 (X) or | (X)-1 
RET 


THE 'EXPONENTIAL' FUNCTION 
(Offset 26: 'exp') 


This subroutine handles the function EXP X and is the first of four routines that use SERIES GENERATOR to produce Chebyshev 
polynomials. 

The approximation to EXP X is found as follows: 

i. X is divided by LN 2 to give Y, so that 2 to the power Y is now the required result. 

ii. The value N is found, such that N=INT Y. 


iii. The value W is found, such that W=Y-N, where 0 <=W <=1, as required for the series to converge. 
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iv. The argument Z if formed, such that Z=2*w-1. 


v. The SERIES GENERATOR is used to return 2**W. 


vi. Finally N is added to the exponent, giving 2**(N+W), which is 2**Y and therefore the required answer for EXP X. 


The method is illustrated using a BASIC program in the Appendix. 


36C4 EXP 
Perform step i. 


Perform step ii. 


Perform step iii. 


Perform step iv. 


RST 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


DEFB 
DEFB 
DEFB 


DEFB 


DEFB 
DEFB 
DEFB 
DEFB 


0028,FP-CALC 


+3D,re-stack 
+34,stk-data 
+F1,exponent+81 
+38,+AA,+3B,+29 
+04, multiply 


+31,duplicate 
+27,int,1C46 
+C3,st-mem-3 


+03,subtract 


+31,duplicate 
+0F, addition 
+A1,stk-one 
+03,subtract 


X (in full floating-point form) 
X, 1/LN 2 


X/LN 2 = Y 

Y,Y 

Y, INTY=N 

Y,N mem-3 holds N 


Ww, W 
2*W 

2*W, 1 
2*W-1 =Z 


Perform step v, passing to the SERIES GENERATOR the parameter '8' and the eight constants required. 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


+88,series-08 
+13,exponent+63 
+36,(+00,+00,+00) 
+58,exponent+68 
+65,+66,(+00,+00) 
+9D,exponent+6D 
+78,+65,+40,(+00) 
+A2,exponent+72 
+60,+32,+C9,(+00) 
+E7,exponent+77 
+21,+F7,+AF,+24 
+EB,exponent+7B 
+2F,+B0,+B0,+14 
+EE,exponent +7E 
+7E,+BB,+94,+58 
+F1,exponent+81 
+3A,+7E,+F8,+CF 


At the end of the last loop the ‘last value’ is 2**W. 


Perform step vi. 


ADD 


+E3,get-mem-3 
+38,end-calc 
2DD5,FP-TO-A 


NZ,3705,N-NEGTV 
C,3703,REPORT-6 
A,(HL) 


NC,370C,RESULT-OK 


Z 


2**W, N 


The absolute value of N mod 
256 decimal, is put into the A 
register. 

Jump forward if N was negative. 
Error if ABS N greater than 255 
dec. 

Now add ABS N to the 
exponent. 

Jump unless e greater than 255 
dec. 


Report 6 - Number too big 


3703 REPORT-6 RST 
DEFB 


3705 N-NEGTV JR 
SUB 


JR 
NEG 
370C RESULT-OK LD 
RET 
370E RSLT-ZERO RST 
DEFB 
DEFB 
DEFB 
RET 


0008,ERROR-1 
+05 


C,370E,RSLT-ZERO 
(HL) 
NC,370E,RSLT-ZERO 
(HL),A 

0028,FP-CALC 
+02,delete 


+A0,stk-zero 
+38,end-calc 


THE 'NATURAL LOGARITHM' FUNCTION 


(Offset 25: 'In’) 


This subroutine handles the function LN X and is the second of the four routines that use SERIES GENERATOR to produce Chebyshev 


polynomials. 


The approximation to LN X is found as follows: 


I. Xis tested and report A is given if X is not positive. 


ll. X is then split into its true exponent, e', and its mantissa X' = X/(2**e'), where X' is greater than, or equal to, 0.5 but still less than 


1). 


Ill. The required value Y1 or Y2 is formed. If X' is greater than 0.8 then Y1=e"*LN 2 and if otherwise Y2 = (e’-1)*LN 2. 


Call the error handling 
routine. 


The result is to be zero if N is 
less than -255 decimal. 
Subtract ABS N from the 
exponent as N was negative. 
Zero result if e less than zero. 
Minus e is changed to e. 

The exponent, e, is entered. 
Finished: ‘last value’ is EXP X 
Use the calculator to make the 
‘last value’ zero. 


Finished, with EXP X = 0. 


IV. If X' is greater than 0.8 then the quantity X'-1 is stacked; otherwise 2*X'-1 is stacked. 


V. Now the argument Z is formed, being if X' is greater than 0.8, Z = 2.5*X'-3; otherwise Z = 5*X'-3. In each case, -1 <=Z <=1, as 


required for the series to converge. 
VI. The SERIES GENERATOR is used to produce the required function. 
VII. Finally a simply multiplication and addition leads to LN X being returned as the ‘last value’. 


3713 In RST 
Perform step i. 
DEFB 
DEFB 
DEFB 
DEFB 


DEFB 
DEFB 


Report A - Invalid argument 


371A REPORT-A = RST 
DEFB 


Perform step ii. 


371C VALID DEFB 


0028,FP-CALC 


+3D,re-stack 
+31,duplicate 
+37,greater-0 
+00,jump-true 
+04,to 371C, VALID 
+38,end-calc 


0008,ERROR-1 
+09 


+A0,stk-zero 
+02,delete 
+38,end-calc 
A,(HL) 

(HL),+80 
2D28,STACK-A 
0028,FP-CALC 
+34,stk-data 
+38,exponent+88 


X 


(in full floating-point form) 
x 


x 
X, 
X, (1/0) 
x 
Xx 
Xx 


Call the error handling 


routine. 

X,0 The deleted 1 is 

x overwritten with zero. 
x 


The exponent, e, goes into A. 
X is reduced to X'. 

The stack holds: X', e. 

xe 

X', e, 128 (decimal) 


Perform step iii. 


373D GRE.8 


Perform step iv. 


Perform step v. 


Perform step vi, passing t 


DEFB 
DEFB 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
INC 
RST 
DEFB 


DEFB 
DEFB 


DEFB 
DEFB 


DEFB 


DEFB 


DEFB 


DEFB 


DEFB 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


DEFB 


o the SERIES GENERATOR the parameter '12' decimal, and the twelve constant required. 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


+00,(+00,+00,+00) 
+03,subtract 


+01,exchange 
+31,duplicate 
+34,stk-data 
+F0,exponent+80 
+4C,+CC,+CC,+CD 
+03,subtract 
+37,greater-0 
+00,jump-true 
+08,to 373D, GRE.8 
+01,exchange 
+A1,stk-one 
+03,subtract 
+01,exchange 
+38,end-calc 

(HL) 
0028,FP-CALC 
+01,exchange 


+34,stk-data 
+F0,exponent+80 


+31,+72,+17,+F8 
+04, multiply 


+01,exchange 
+A2,stk-half 
+03,subtract 
+A2,stk-half 


+03,subtract 


+31,duplicate 
+34,stk-data 


+32,exponent+82 
+20,(+00,+00,+00) 
+04,multiply 


+A2,stk-half 


+03,subtract 


+8C,series-OC 
+11,exponent+61 
+AC,(+00,+00,+00) 
+14,exponent+64 
+09,(+00,+00,+00) 
+56,exponent+66 
+DA,+A5,(+00,+00) 
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x 
QO 


e’, X' 
e’, X', X' 
e', X', X',0.8 (decimal) 


e', X', X'-0.8 
e', X', (1/0) 


e'-1,2*X' 

xe - X' large. 
2*xX',e'-1 - X' small. 
X'e,LN 2 

2*x',e'-1, LN 2 


X,e"LN 2=Y1 
2*X’, (e'-1)*LN 2 = Y2 


Y1, X' - X' large. 
Y2, 2*X' - X' small. 
Y1, X', .5 (decimal) 
Y2, 2*X', .5 

Y1, X'-.5 

Y2, 2*X'-.5 

Y1, X'-.5, .5 

Y2, 2*X'-.5, .5 

Y1, X'-1 

Y2, 2*X'-1 


Y, X'-1, X'-1 
Y2, 2*X'-1, 2*X'-1 


Y1, X'-1, X'-1, 2.5 (decimal) 


Y2, 2*X'-1, 2*X'-1, 2.5 


Y1, X'-1, 2.5°X'-2.5 
Y2, 2*X'-1, S*X'-2.5 
Y1,X’-1, 2.5*X’-2.5, .5 
Y2, 2*X’-1, 5*X’-2.5, .5 
Y1, X’-1, 2.5*X’-3 = Z 
Y2, 2*X’-1, 5*X’-3 =Z 


Y1, X'-1, Z or Y2, 2*X'-1, Z 


DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


+59,exponent+69 
+30,+C5,(+00,+00) 
+5C,exponent+6C 
+90,+AA,(+00,+00) 
+9E,exponent+6E 
+70,+6F,+61,(+00) 
+A1,exponent+71 
+CB,+DA,+96,(+00) 
+A4,exponent+74 
+31,+9F,+B4,(+00) 
+E7,exponent+77 
+A0,+FE,+5C,+FC 
+EA,exponent+7A 
+1B,+43,+CA,+36 
+ED,exponent+7D 
+A7,+9C,+7E,+5E 
+F0,exponent+80 
+6E,+23,+80,+93 


At the end of the last loop the ‘last value’ is: 


either 
or 


Perform step vii. 
DEFB 
DEFB 


DEFB 
RET 


LN X'/(X'-1) for the larger values of X' 


LN (2*X')/(2*X'- 


+04, multiply 
+0F addition 


+38,end-calc 


1) for the smaller values of X'’. 


Y1=LN (2**e’), LN X' 
Y2=LN (2**(e'-1)), LN (2*X’) 


LN (2**e')*X') =LNX 
LN (2**(e'-1)*2*X') =LNX 
LN X 


Finished: ‘last value’ is LN X. 


THE 'REDUCE ARGUMENT' SUBROUTINE 


(Offset 39: 'get-argt’) 


This subroutine transforms the argument X of SIN X or COS X into a value V. 
The subroutine first finds a value Y such that: 


Y = X/(2*Pl) - INT (X/2*Pl) + 0.5), where Y is greater than, or equal to, -.5 but less than +.5. 
The subroutine returns with: 


V=4*Y 
or, V = 2-4*Y 
or, V = -4*Y-2 


if-1 <=4*Y <=1 
if 1 <4*Y <2 
if -2 <=4*Y <-1 


- case i. 
- case ii. 


; - case iii. 


In each case, -1 < =V <=1 and SIN (PI*V/2) = SIN X 


3783 get-argt 


RST 

DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 


0028,FP-CALC X 

+3D,re-stack X (in full floating-point form) 

+34,stk-data X, 1/(2*Pl) 

+EE,exponent+7E 

+22,+F9,+83,+6E 

+04, multiply X/(2*Pl) 

+31,duplicate X/(2*Pl), X/(2*Pl) 

+A2,stk-half X/(2*Pl), X/(2*Pl), 0.5 

+0F addition X/(2*Pl), X/(2*Pl)+0.5 

+27,int,1C46 X/(2*Pl), INT (X/(2*P1)+0.5) 
= 


+03,subtract,174C 
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X/(2*P1)-INT (X/(2*P1)+0.5)=Y 


Note: Adding 0.5 and taking INT rounds the result to the nearest integer. 


DEFB +31 ,duplicate Y,Y 

DEFB +0F addition 2*Y 

DEFB +31,duplicate 2*Y, 2°*Y 

DEFB +0F, addition 4*Y 

DEFB +31 ,duplicate A*Y, 4*Y 

DEFB +2A,abs 4*Y, ABS (4*Y) 

DEFB +A1,stk-one 4*Y, ABS (4*Y), 1 

DEFB +03,subtract 4*Y, ABS (4*Y)-1 =Z 

DEFB +31,duplicate 4‘Y,Z,Z 

DEFB +37,greater-0 4*Y, Z, (1/0) 

DEFB +C0,st-mem-0 Mem-0 holds the result of the 
test. 

DEFB +00,jump-true 4*Y,Z 

DEFB +04, to 37A1,ZPLUS 4‘Y,Z 

DEFB +02,delete 4*Y 

DEFB +38,end-calc 4*Y = V - casei. 

RET Finished. 


If the jump was made then continue. 


37A1 ZPLUS DEFB +A1,stk-one 4*Y, Z, 1 
DEFB +03,subtract 4*Y, Z-1 
DEFB +01,exchange Z-1,4*Y 
DEFB +36,less-0 Z-1,(1/0) 
DEFB +00,jump-true Z-1 
DEFB +02,to 37A8,YNEG Z-1 
DEFB +1B,negate 1-Z 
37A8 YNEG DEFB +38,end-calc 1-Z = V - case ii. 
Z-1 =V -case iii. 
RET Finished. 


THE 'COSINE' FUNCTION 
(Offset 20: 'cos') 


This subroutine handles the function COS X and returns a ‘last value’ ‘that is an approximation to COS X. 

The subroutine uses the expression: 

COS X = SIN (PI*W/2), where -1 <=W <=1. 

In deriving W for X the subroutine uses the test result obtained in the previous subroutine and stored for this purpose in mem-0. It then 
jumps to the SINE, subroutine, entering at C-ENT, to produce a ‘last value’ of COS X. 


37AA cos RST 0028,FP-CALC. x 
DEFB +39,get-argt V 
DEFB +2A,abs ABS V 
DEFB +A1,stk-one ABS \V, 1 
DEFB +03,subtract ABS V-1 
DEFB +E0,get-mem-0 ABS V-1, (1/0) 
DEFB +00,jump-true ABS V-1 
DEFB +06, to 37B7,C-ENT ABS V-1 = W 
If the jump was not made then continue. 
DEFB +1B,negate 1-ABS V 
DEFB +33,jump 1-ABS V 
DEFB +03, to 37B7,C-ENT 1-ABS V = W 


THE 'SINE' FUNCTION 
(Offset 1F: 'sin’) 


This subroutine handles the function SIN X and is the third of the four routines that use SERIES GENERATOR to produce Chebyshev 
polynomials. 
The approximation to SIN X is found as follows: 


i. The argument X is reduced and in this case W = V directly. 


216 


Note that -1 <=W <=1, as required for the series to converge. 

ii. The argument Z is formed, such that Z=2*W*W-1. 

iii. The SERIES GENERATOR is used to return (SIN (PI*W/2))/W 

iv. Finally a simple multiplication gives SIN X. 

37B5 sin RST 0028 FP-CALC x 
Perform step i. 


DEFB +39,get-argt WwW 


Perform step ii. The subroutine from now on is common to both the SINE and COSINE functions. 


37B7 C-ENT DEFB +31,duplicate Ww, W 
DEFB +31,duplicate W, W, W 
DEFB +04, multiply W, W*W 
DEFB +31,duplicate W, W*W, W*W 
DEFB +0F,addition W, 2*W*W 
DEFB +A1,stk-one W, 2°*W*W, 1 
DEFB +03,subtract W, 2°;W*W-1 =Z 


Perform step iii, passing to the SERIES GENERATOR the parameter '6' and the six constants required. 


DEFB +86,series-06 W,Z 
Is DEFB +14,exponent+64 
DEFB +E6,(+00,+00,+00) 
2. DEFB +5C,exponent+6C 
DEFB +1F,+0B,(+00,+00) 
3. DEFB +A3,exponent+73 
DEFB +8F ,+38,+EE,(+00) 
4. DEFB +E9,exponent+79 
DEFB +15,+63,+BB,+23 
5. DEFB +EE,exponent+7E 
DEFB +92,+0D,+CD,+ED 
6. DEFB +F1,exponent+81 
DEFB +23,+5D,+1B,+EA 


At the end of the last loop the ‘last value’ is (SIN (PI*W/2))/W. 


Perform step v. 


DEFB +04,multiply SIN (PI*W/2) = SIN X (or = 
COS X) 

DEFB +38,end-calc 

RET Finished: ‘last value’ = SIN X. 


or (‘last value’ = COS X) 


THE 'TAN' FUNCTION 
(Offset 21: 'tan') 


This subroutine handles the function TAN X. The subroutine simply returns SIN X/COS X, with arithmetic overflow if COS X = 0. 


37DA tan RST 0028,FP-CALC X 

DEFB +31 duplicate X, X 

DEFB +1F,sin X, SIN X 

DEFB +01,exchange SIN X, X 

DEFB +20,cos SIN X,COS X 

DEFB +05, division SIN X/COS X = TAN X 
Report arithmetic overflow if 
needed. 

DEFB +38,end-calc TAN X 

RET Finished: ‘last value’ = TAN X. 
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THE 'ARCTAN' FUNCTION 
(Offset 24: 'atn') 


This subroutine handles the function ATN X and is the last of the four routines that use SERIES GENERATOR to produce Chebyshev 
polynomials. It returns a real number between -PI/2 and PI/2, which is equal to the value in radians of the angle whose tan is X. 
The approximation to ATN X is found as follows: 


i. The values W and Y are found for three cases of X, such that: 

if-1<X<1 then W =0 &Y=X - case i. 
if-1 <=X thenW=PI/2 & Y=-1/X - case ii. 

if X < =-1 then W = -PI/2 & Y = -1/X - case iii. 

In each case, -1 < =Y < =1, as required for the series to converge. 

ii. The argument Z is formed, such that: 

if-1<xX<1 then Z = 2*Y*Y-1 = 2*X*X-1 - case i. 
if1<X then Z = 2*Y*Y-1 = 2/(X*X)-1_ - case ii. 

if X < =-1 then Z = 2*Y*Y-1 = 2/(X*X)-1_ - case iii. 

iii. The SERIES GENERATOR is used to produce the required function. 

iv. Finally a simple multiplication and addition give ATN X. 


Perform stage i. 


37E2 atn CALL 3297,RE-STACK Use the full floating-point form 

of X. 

LD A,(HL) Fetch the exponent of X. 

CP +81 

JR C,37F8,SMALL Jump forward for case i: Y = X. 

RST 0028,FP-CALC X 

DEFB +A1,stk-one X, 1 

DEFB +1B,negate X,-1 

DEFB +01,exchange -1,X 

DEFB +05, division -1/X 

DEFB +31,duplicate -1/X, -1/X 

DEFB +36,less-0 -1/X, (1/0) 

DEFB +A3,stk-pi/2 -1/X, (1/0), PI/2 

DEFB +01,exchange -1/X, Pl/2, (1/0) 

DEFB +00,jump-true -1/X, Pl/2 

DEFB +06, to 37FA,CASES Jump forward for case ii: 
Y =-1/X W=PI/2 

DEFB +1B,negate -1/X, -PI/2 

DEFB +33,jump -1/X, -PI/2 

DEFB +03,to 37FA,CASES Jump forward for case iii: 
Y =-1/K W=-PI/2 

37F8 SMALL RST 0028,FP-CALC Y 
DEFB +A0,stk-zero Y,0 


Continue for case i: W = 0 


Perform step ii. 


37FA CASES DEFB +01,exchange W, Y 
DEFB +31,duplicate W,Y,Y 
DEFB +31,duplicate W,Y,Y,Y 
DEFB +04, multiply W, Y, Y*Y 
DEFB +31,duplicate W, Y, Y*Y, Y*Y 
DEFB +0F,addition W, Y, 2*Y*Y 
DEFB +A1,stk-one W, Y, 2*Y*Y, 1 
DEFB +03,subtract W, Y, 2*Y*Y-1=Z 


Perform step iii, passing to the SERIES GENERATOR the parameter '12' decimal, and the twelve constants required. 


DEFB +8C,series-OC W,Y,Z 
1. DEFB +10,exponent+60 
DEFB +B2,(+00,+00,+00) 
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2. DEFB +13,exponent+63 


DEFB +0E,(+00,+00,+00) 
3. DEFB +55,exponent+65 
DEFB +E4,+8D,(+00,+00) 
4. DEFB +58,exponent+68 
DEFB +39,+BC,(+00,+00) 
5. DEFB +5B,exponent+6B 
DEFB +98,+FD,(+00,+00) 
6. DEFB +9E,exponent+6E 
DEFB +00,+36,+75,(+00) 
7. DEFB +A0,exponent+70 
DEFB +DB,+E8,+B4,(+00) 
8. DEFB +63,exponent+73 
DEFB +42,+C4,(+00,+00) 
9. DEFB +E6,exponent+76 
DEFB +B5,+09,+36,+BE 
10. DEFB +E9,exponent+79 
DEFB +36,+73,+1B,+5D 
11. DEFB +EC,exponent+7C 
DEFB +D8,+DE,+63,+BE 
12. DEFB +F0,exponent+80 
DEFB +61,+A1,+B3,+0C 


At the end of the last loop the ‘last value’ is: 


ATN X/X - case i. 
ATN (-1/X)/(-1/X) - case ii. 
ATN (-1/X)/(-1/X) - case iii. 


Perform step iv. 


DEFB +04, multiply W, ATN X- case i. 
W, ATN (-1/X) - case ii. 
W, ATN (-1/X) - case iii. 
DEFB +0F, addition ATN X - all cases now. 
DEFB +38,end-calc 
RET Finished: ‘last value’ = ATN X. 


THE 'ARCSIN' FUNCTION 
(Offset 22: 'asn') 


This subroutine handles the function ASN X and return a real real number from -PI/2 to PI/2 inclusive which is equal to the value in 
radians of the angle whose sine is X. Thereby if Y = ASN X then X = SIN Y. 

This subroutine uses the trigonometric identity: 

TAN (Y/2) = SIN Y/1(1+COS Y) 

to obtain TAN (Y/2) and hence (using ATN) Y/2 and finally Y. 


3833 asn RST 0028,FP-CALC x 

DEFB +31 ,duplicate X, X 

DEFB +31 ,duplicate X, X, X 

DEFB +04,multiply X, X*X 

DEFB +A1,stk-one X, X*X, 1 

DEFB +03,subtract X, X*X-1 

DEFB +1B,negate X,1-X*X 

DEFB +28,sqr X,SQR (1-X*X) 

DEFB +A1,stk-one X,SQR (1-X*X), 1 

DEFB +0F, addition X, 1+SQR (1-X*X) 

DEFB +05,division X/(1+SQR (1-X*X)) = TAN 
(Y/2) 

DEFB +24, atn Y/2 

DEFB +31 ,duplicate Y/2, Y/2 

DEFB +0F, addition Y = ASN X 

DEFB +38,end-calc 

RET Finished: ‘last value' = ASN X. 
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THE 'ARCCOS' FUNCTION 
(Offset 23: 'acs') 


This subroutine handles the function ACS X and returns a real number from zero to PI inclusive which is equal to the value in radians of 
the angle whose cosine is X. 
This subroutine uses the relation: 
ACS X = PI/2 - ASN X 


3843 acs RST 0028,FP-CALC Xx 
DEFB +22,asn ASN X 
DEFB +A3,stk-pi/2 ASN X,PI/2 
DEFN +03,subtract ASN X-PI/2 
DEFB +1B,negate PI/2-ASN X = ACS X 
DEFB +38,end-calc 
RET Finished: ‘last value’ = ACS X. 


THE 'SQUARE ROOT' FUNCTION 
(Offset 28: 'sqr’) 


This subroutine handles the function SQR X and returns the positive square root of the real number X if X is positive, and zero if X is 
zero. A negative value of X gives rise to report A - invalid argument (via In in the EXPONENTIATION subroutine). 

This subroutine treats the square root operation as being X**.5 and therefore stacks the value .5 and proceeds directly into the 
EXPONENTIATION subroutine. 


384A sqr RST 0028,FP-CALC x 
DEFB +31 ,duplicate XX 
DEFB +30,not X,(1/0) 
DEFB +00,jump-true x 
DEFB +1E,to 386C,LAST X 


The jump is made if X = 0, otherwise continue with: 


DEFB +A2,stk-half X,.5 
DEFB +38,end-calc 


and then find the result of X**.5. 


THE 'EXPONENTIATION' OPERATION 
(Offset 06: 'to-power') 


This subroutine performs the binary operation of raising the first number, X, to the power of the second number, Y. 
The subroutine treats the result X**Y as being equivalent to EXP (Y*LN X). It returns this value unless X is zero, in which case it 
returns 1 if Y is also zero (0**0=1), returns zero if Y is positive and reports arithmetic overflow if Y is negative. 


3851 to-power RST 0028,FP-CALC XY 
DEFB +01,exchange Y,X 
DEFB +31 duplicate Y,X,X 
DEFB +30,not Y,X,(1/0) 
DEFB +00,jump-true YX 
DEFB +07,to 385D,XISO Y,X 


The jump is made if X = 0, otherwise EXP (Y*LN X) is formed. 
DEFB +25,In Y,LN X 


Giving report A if X is negative. 


DEFB +04,multiply Y*LN X 

DEFB +38,end-calc 

JP 36C4,EXP Exit via EXP to form EXP 
(Y*LN X). 


The value of X is zero so consider the three possible cases involved. 


385D XISO DEFB +02,delete Y 
DEFB +31 duplicate Y,Y 
DEFB +30,not Y,(1/0) 
DEFB +00,jump-true Y 
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DEFB +09,to 386A,ONE ¥: 


The jump is made if X = 0 and Y = 0, otherwise proceed. 


DEFB +A0,stk-zero Y,0 
DEFB +01,exchange 0,Y 
DEFB +37,greater-0 0,(1/0) 
DEFB +00,jump-true 0 
DEFB +06,to 386C,LAST 0 
The jump is made if X = 0 and Y is positive, otherwise proceed. 
DEFB +A1,stk-one 0,1 
DEFB +01,exchange 1,0 
DEFB +05,division Exit via ‘division’ as dividing by 


zero gives ‘arithmetic overflow’. 
The result is to be 1 for the operation. 


386A ONE DEFB +02,delete - 
DEFB +A1,stk-one 1 


Now return with the ‘last value’ on the stack being 0**Y. 


386C LAST DEFB +38,end-calc (1/0) 
RET Finished: ‘last value’ is 0 or 1. 


386E - 3CFF These locations are 'spare’. They all hold +FF. 


3D00 - 3FFF These locations hold the ‘character set'. There are 8 byte representations for all the characters with codes +20 (space) to 
+7F (©). 
e.g. the letter 'A' has the representation 00 3C 42 42 7E 42 42 00 and thereby the form: 


00000000 
00111100 
01000010 
01000010 
01111110 
01000010 
01000010 
00000000 
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APPENDIX 
BASIC PROGRAMS FOR THE MAIN SERIES 


The following BASIC programs have been included as they give a good illustration of 
how Chebyshev polynomials are used to produce the approximations to the functions 
SIN, EXP, LN and ATN. 

The series generator: 

This subroutine is called by all the ‘function’ programs. 


500 REM SERIES GENERATOR, ENTER 
510 REM USING THE COUNTER BREG 
520 REM AND ARRAY-A HOLDING THE 
530 REM CONSTANTS. 

540 REM FIRST VALUE IN Z. 

550 LET MO=2*Z 

560 LET M2=0 

570 LET T=0 

580 FOR I=BREG TO 1 STEP -1 

590 LET M1=M2 

600 LET U=T*M0-M2+A(BREG+1-1) 

610 LET M2=T 

620 LET T=U 

630 NEXT | 

640 LET T=T-M1 

650 RETURN 

660 REM LAST VALUE IN T. 


In the above subroutine the variable are: 


Z- the entry value. 

T - the exit value. 

MO - mem-0O 

M1 - mem-1 

M2 - mem-2 

| - the counter for BREG. 

U - a temporary variable for T. 


A(1) to 
A(BREG) - the constants. 
BREG - the number of constants to be used. 


To see how the Chebyshev polynomials are generated, record on paper the values of U, 
M1, M2 and T through the lines 550 to 630, passing, say, 6 times through the loop, and 
keeping the algebraic expressions for A(1) to A(6) without substituting numerical values. 
Then record T-M1. The multipliers of the constants A(1) to A(6) will then be the re- 
quired Chebyshev polynomials. More precisely, the multiplier of A(1) will be 2*T5(Z), 
for A(2) it will be 2*T4(Z) and so on to 2*T1(Z) for A(5) and finally TO(Z) for A(6). 

Note that TO0(Z)=1, T1(Z)=Z and, for n>=2, Tn(Z)=2*Z*Tn-1(Z)-Tn-2(Z). 
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SIN X 


10 REM DEMONSTRATION FOR SIN X 
20 REM USING THE 'SERIES GENERATOR’. 

30 DIM A(6) 

40 LET A(1)=-.000000003 

50 LET A(2)=0.000000592 

60 LET A(3)=-.000068294 

70 LET A(4)=0.004559008 

80 LET A(5)=-.142630785 

90 LET A(6)=1.276278962 

100 PRINT 

110 PRINT "ENTER START VALUE IN DEGREES" 
120 INPUT C 

130 CLS 

140 LET C=C-10 

150 PRINT "BASIC PROGRAM","ROM PROGRAM" 


180 FOR J=1 TO 4 

190 LET C=C+10 

200 LET Y=C/360-INT (C/360+.5) 

210 LET W=4*Y 

220 IF W>1 THEN LET W=2-W 

230 IF W <-1 THEN LET W=-W-2 

240 LET Z=2*W*W-1 

250 LET BREG=6 

260 REM USE 'SERIES GENERATOR’ 
270 GO SUB 550 

280 PRINT TAB 6; "SIN ";C;" DEGREES" 
290 PRINT 

300 PRINT T*W,SIN (PI*C/180) 

310 PRINT 

320 NEXT J 

330 GO TO 100 


NOTES: 


When C is entered this program calculates and prints SIN C degrees, SIN (C+10) degrees, SIN (C+20) degrees and SIN (C+30) 
degrees. It also prints the values obtained by using the ROM program. For a specimen of results, try entering these values in 
degrees: 0; 5; 100; -80; -260; 3600; -7200. 

The constants A(1) to A(6) in lines 40 to 90 are given (apart from a factor of 1/2) in Abramowitz and Stegun Handbook of 
Mathematical Functions (Dover 1965) page 76. They can be checked by integrating (SIN (PI*X/2))/X over the interval U=0 to PI, 
after first multiplying by COS (N*U) for each constant (i.e. N=1,2,...,6) and substituting COS U=2*X*X-1. Each result should then 
be divided by PI. (This integration can be performed by approximate methods e.g. using Simpson's Rule if there is a reasonable 
computer or programmable calculator to hand.) 
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EXP X 


10 REM DEMONSTRATION FOR EXP X 

20 REM USING THE 'SERIES GENERATOR' 

30 LET T=0 (This makes T the first variable.) 
40 DIM A(8) 

50 LET A(1)=0.000000001 

60 LET A(2)=0.000000053 

70 LET A(3)=0.000001851 

80 LET A(4)=0.000053453 

90 LET A(5)=0.001235714 

100 LET A(6)=0.021446556 

110 LET A(7)=0.248762434 

120 LET A(8)=1.456999875 

130 PRINT 

140 PRINT "ENTER START VALUE" 

150 INPUT C 

160 CLS 

170 LET C=C-10 

180 PRINT "BASIC PROGRAM", "ROM PROGRAM" 


210 FOR J=1TO4 
220 LET C=C+10 

230 LET D=C*1.442695041 (D=C*(1/LN 2);EXP C=2**D). 
240 LET N=INT D 

250 LET Z=D-N (2**(N+Z) is now required). 

260 LET Z=2*Z-1 

270 LET BREG=8 

280 REM USE "SERIES GENERATOR" 

290 GO SUB 550 

300 LET V=PEEK 23627+256*PEEK 23628+1 (V=(VARS)+1) 
310 LET N=N+PEEK V 

320 IF N > 255 THEN STOP (STOP with arithmetic overflow). 
330 IF N<0 THEN GO TO 360 

340 POKE V,N 

350 GO TO 370 

360 LET T=0 

370 PRINT TAB 11;"EXP ";C 

380 PRINT 

390 PRINT T,EXP C 

400 PRINT 

410 NEXT J 

420 GO TO 130 


NOTES: 


|. When C is entered this program calculates and prints EXP C, EXP (C+10), EXP (C+20) and EXP (C+30). It also prints the 
values obtained by using the ROM program. For a specimen of results, try entering these values: 0; 15; 65 (with overflow at the 
end); -100; -40. 

ll. | The exponent is tested for overflow and for a zero result in lines 320 and 330. These tests are simpler in BASIC than in machine 
code, since the variable N, unlike the A register, is not confined to one byte. 


Ill. The constants A(1) to A(8) in lines 50 to 120 can be obtained by integrating 2**X over the interval U=0 to PI, after first 
multiplying the COS (N*U) for each constant (i.e. for N=1,2,...,8) and substituting COS U = 2*X-1. Each result should then be 
divided by PI. 
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LN X: 


10 REM DEMONSTRATION FOR LN X 

20 REM USING THE 'SERIES GENERATOR' 
30 LET D=0 (This makes D the first variable). 
40 DIM A(12) 

50 LET A(1)= -.0000000003 

60 LET A(2)=0.0000000020 

70 LET A(3)= -.0000000127 

80 LET A(4)=-0.0000000823 

90 LET A(5)= -.0000005389 

100 LET A(6)=0.0000035828 

110 LET A(7)= -.0000243013 

120 LET A(8)=0.0001693953 

130 LET A(9)= -.0012282837 

140 LET A(10)=0.0094766116 

150 LET A(11)= -.0818414567 

160 LET A(12)=0.9302292213 

170 PRINT 

180 PRINT "ENTER START VALUE" 

190 INPUT C 

200 CLS 

210 PRINT "BASIC PROGRAM", "ROM PROGRAM" 


240 LET C=SQRC 

250 FOR J=1 TO 4 

260 LET C=C*C 

270 IF C=0 THEN STOP (STOP with ‘invalid argument’.) 
280 LET D=C 

290 LET V=PEEK 23627+256*PEEK 23628+1 
300 LET N=PEEK V-128 (N holds e’). 

310 POKE V,128 

320 IF D<=0.8 THEN GO TO 360 (D holds X’). 
330 LET S=D-1 

340 LET Z=2.5*D-3 

350 GO TO 390 

360 LET N=N-1 

370 LET S=2*D-1 

380 LET Z=5*D-3 

390 LET R=N*0.6931471806 (R holds N*LN 2). 
400 LET BREG=12 

410 REM USE 'SERIES GENERATOR’ 

420 GO SUB 550 

430 PRINT TAB 8;"LN ";C 

440 PRINT 

450 PRINT S*T+R,LN C 

460 PRINT 

470 NEXT J 

480 GO TO 170 


NOTES: 


|. When C is entered this program calculates and prints LN C, LN (C**2), LN (C**4) and LN (C**8). It also prints the values 
obtained by using the ROM program. For a specimen of results, try entering these values: 1.1; 0.9; 300; 0.004; 1E5 (for 
overflow) and 1E-5 (STOP as ‘invalid argument’). 


ll. The constants A(1) to A(12) in lines 50 to 160 can be obtained by integrating 5*LN (4* (X+1)/5)/(4*X-1) over the interval U=0 to 
Pl, after first multiplying by COS (N*U) for each constant (i.e. for N=1,2,...,12) and substituting COS U=2*X-1. Each result 
should then be divided by PI. 
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ATN X: 


10 REM DEMONSTRATION FOR ATN X 
20 REM USING THE 'SERIES GENERATOR' 

30 DIM A(12) 

40 LET A(1)= -.0000000002 

50 LET A(2)=0.0000000010 

60 LET A(3)= -.0000000066 

70 LET A(4)=0.0000000432 

80 LET A(5)= -.0000002850 

90 LET A(6)=0.0000019105 

100 LET A(7)= -.0000131076 

110 LET A(8)=0.0000928715 

120 LET A(9)= -.0006905975 

130 LET A(10)=0.0055679210 

140 LET A(11)= -.0529464623 

150 LET A(12)=0.8813735870 

160 PRINT 

170 PRINT "ENTER START VALUE" 

180 INPUT C 

190 CLS 

200 PRINT "BASIC PROGRAM", "ROM PROGRAM" 


220 PRINT 

230 FOR J=1 TO 4 

240 LET B=J*C 

250 LET D=B 

260 IF ABS B>=1 THEN LET D= -1/B 
270 LET Z=2*D*D-1 

280 LET BREG=12 

290 REM USE "SERIES GENERATOR" 
300 GO SUB 550 

310 LET T=D*T 

320 IF B>=1 THEN LET T=T+PIl/2 
330 IF B < =-1 THEN LET T=T-PI/2 
340 PRINT TAB 8;"ATN ";B 


350 PRINT 
360 PRINT T,ATN B (or PRINT T*180/PI,ATN B*180/PI 
370 PRINT to obtain the answers in degrees) 
380 NEXT J 


390 GO TO 160 


NOTES: 


|. When C is entered this program calculates and prints ATN C, ATN (C*2), ATN (C*3) and ATN (C*4). For a specimen of results, 
try entering these values: 0.2; -1; 10 and -100. The results may be found more interesting if converted to yield degrees by 
multiplying the answers in line 360 by 180/PI. 


Il. The constants A(1) to A(12) in lines 40 to 150 are given (apart from a factor of 1/2) in Abramowitz and Stegun Handbook of 
Mathematical Functions (Dover 1965) page 82. They can be checked by integrating ATN X/X over the interval U=0 to PI, after 
first multiplying by COS (N*U) for each parameter (i.e. for nN=1,2,...,12) and substituting COS U=2*X*X-1. Each result should 
then be divided by PI. 
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An alternative subroutine for SIN X: 
It is straightforward to produce the full expansion of the Chebyshev polynomials and this can be written in BASIC as follows: 


550 LET T 


(32*Z*Z*Z*Z*Z-40*Z*Z*Z+10*Z)*A(1) 
+(16*Z*Z*Z*Z-16*Z*Z+2)*A(2) 
+(8*Z*Z*Z-6*Z)*A(3) 
+(4*Z*Z-2)*A(4) 
+2°Z *A(5) 
+A(6) 
560 RETURN 


This subroutine is called instead of the SERIES GENERATOR and can be seen to be of a similar accuracy. 


An alternative subroutine for EXP X: 
The full expansion for EXP X is: 
550 LET T =(128*Z*Z*Z*Z*Z*Z*Z-224*Z*Z*Z*Z*Z+1 12*Z*Z*Z-14*Z)*A(1) 
+(64*Z*Z*Z*Z*Z*Z-96*Z*Z*Z*Z+36*Z*Z-2)*A(2) 
+(32*Z*Z*Z*Z*Z-40*Z*Z*Z+10*Z)*A(3) 
+(16*Z*Z*Z*Z-16*Z*Z+2)*A(4) 
+(8*Z*Z*Z-6*Z)*A(5) 
+(4*Z*Z-2)*A(6) 
+2*Z*A(7) 
+A(8) 
560 RETURN 


The expansion for LN X and A TN X, given algebraically, will be: 
(2048z11-563229+5632z’-2464z9+440z93-222) * A (1) 


(1024z19-2560z8+224026-g00z4+100z2-2) * A(2) 
(51229-115227+864z5-240z3+18z) * A(3) 
(256z8-51226+32024-64z2+2) * A(4) 
(12827-22425+112z3-14z) * A(5) 
(64z6-9624+36z2-2) * A(6) 

(3225-40z3+10z) * A(7) 

(1624-1622+2) * A(8) 

(8z3-6z) * A(9) 

(422-2) * A(10) 

(2z) * A(11) 
A(12) 


teeter eeeteese 
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THE 'DRAW' ALGORITHM 
The following BASIC program illustrates the essential parts of the DRAW operation when being used to produce a straight line. The 
program in its present form only allows for lines where X > Y. 


10 REM DRAW 255,175 PROGRAM 
20 REM SET ORIGIN 

30 LET PLOTx=0: LET PLOTy=0 

40 REM SET LIMITS 

50 LET X=255: LET Y=175 

60 REM SET INCREMENT, i 

70 LET i=x/2 

80 REM ENTER LOOP 

90 FOR B=X TO 1 STEP -1 

100 LET A=Y+i 

110 IF X> A THEN GO TO 160 

120 REM UP A PIXEL ON THIS PASS 
130 LET A=A-X 

140 LET PLOTy=PLOTy+1 

150 REM RESET INCREMENT,i 

160 LET i=A 

170 REM ALWAYS ALONG ONE PIXEL 
180 LET PLOTx=PLOTx+1 

190 REM NOW MAKE A PLOT 

200 PLOT PLOTx,PLOTy 

210 NEXT B 


A complete algorithm is to found in the following program, as a subroutine that will 'DRAW A LINE' from the last position to X,Y. 


THE 'CIRCLE' ALGORITHM 
The following BASIC program illustrates how the CIRCLE command produces its circles. 

Initially the number of arcs required is calculated. Then a set of parameters is prepared in the 'memory area’ and the 'calculator 
stack’. 

The arcs are then drawn by repeated calls to the line drawing subroutine that on each call draws a single line from the ‘last position 
to the position 'X,Y'. 


Note: In the ROM program there is a final ‘closing’ line but this feature has not been included here. 


10 REMACIRCLE PROGRAM 

20 LET X=127: LET Y=87: LET Z=87 
30 REM How many arcs? 

40 LET Arcs=4*INT (INT (ABS (PI*SQR Z)+0.5)/4)+4 
50 REM Set up memory area; MO-M5 
60 LET MO=X+Z 

70 LET M1=0 

80 LET M2=2*Z*SIN (PI/Arcs) 

90 LET M3=1-2*(SIN (Pl/Arcs)) * 2 
100 LET M4=SIN (2*PI/Arcs) 

110 LET M5=2*Pl 

120 REM Set up stack; Sa-Sd 

130 LET Sa=X+Z 

140 LET Sb=Y-Z*SIN (PI/Arcs) 

150 LET Sc=Sa 

160 LET Sd-Sb 

170 REM Initialise COORDS 

180 POKE 23677,Sa: POKE 23678,Sb 
190 LET MO=Sd 

200 REM 'DRAW THE ARCS' 

210 LET MO=M0+M2 

220 LET Sc=Sc+M1 

230 LET X=Sc-PEEK 23677 

240 LET Y=MO-PEEK 23678 


228 


250 GO SUB 510 

260 LET Arcs=Arcs-1: IF Arcs=0 THEN STOP 
270 LET MM1=M1 

280 LET M1=M1*M3-M2*M4 

290 LET M2=MM1*M4+M2*M3 

300 GO TO 210 


500 REM 'DRAW A LINE' from last position to X,Y 
510 LET PLOTx=PEEK 23677: LET PLOTy=PEEK 23678 
520 LET dx=SGN X: LET dy=SGN Y 

530 LET X=ABS X: LET Y=ABS Y 

540 IF X>=Y THEN GO TO 580 

550 LET L=X: LET B=Y 

560 LET ddx=0: LET ddy=dy 

570 GO TO 610 

580 IF X+Y=0 THEN STOP 

590 LET L=Y: LET B=X 

600 LET ddx=dx: LET ddy=0 

610 LET H=B 

620 LET i=INT (B/2) 

630 FOR N=B TO 1 STEP -1 


640 LET i=i+L 
650 IF i<H THEN GO TO 690 
660 LET i=i-H 


670 LET ix=dx: LET iy=dy 
680 GO TO 700 

690 LET ix=ddx: LET iy=ddy 

700 LET PLOTy=PLOTy+iy 

710 IF PLOTy <0 OR PLOTy > 175 THEN STOP 
720 LET PLOTx=PLOTxtix 

730 IF PLOTx <0 OR PLOTx > 255 THEN STOP 
740 PLOT PLOTx,PLOTy 

750 NEXT N 

760 RETURN 


NOTE ON SMALL INTEGERS AND -65536. 


1. Small integers n are those for which -65535 is less than or equal to n which is less than or equal to 65535. The form in which they 
are held is described in 'STACK-BC'. Note that the manual is inaccurate when it says that the third and fourth bytes hold n plus 131072 
ifn is negative. Since the range of n is then -1 to -65535, the two bytes can only hold n plus 131072 if it is taken mod 65536; i.e. they 
hold n plus 65536. The manual is fudging the issue. The fact is that this is not a true twos complement form (as the form n plus 131072, 
in other circumstances, could be). Here the same number can stand for two different numbers according to the sign byte: e.g. 00 01 
stands for 1 if the sign byte is 00 and for -65535 if the sign byte is FF; similarly FF FF stands for 65535 if the sign byte is 00 and for -1 if 
the sign byte is FF. 


2. Accepting that negative numbers are given a special 'twos complement’ form, the main feature about this method of holding numbers 
is that they are ready for 'short addition’ without any further twos complementing. They are simply fetched and stored direct by the 
addition subroutine. But for multiplication they need to be fetched by INT-FETCH and stored afterwards by INT-STORE. These 
subroutines twos complement the number when fetching or storing it. The calls to INT-STORE are from 'multiply' (after ‘short 
multiplication’), from ‘truncate’ (after forming a 'small integer’ between -65535 and 65535 inclusive), from 'negate'/‘abs' for the ‘integer 
case’ and from 'sgn' to store 1 or -1. The calls to INT-FETCH are from PRINT-FP to fetch the integer part of the number when it is 
‘small’, from ‘multiply’ twice to fetch two 'small integers’, from 'RE-STACK' to fetch a ‘small integer’ for re-stacking, from 'negate'/‘abs' to 
fetch a 'small integer’ for manipulation and from FP-TO-BC to fetch the integer for transfer to BC. 
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The Number -65536. 


3. The number -65536 can fit into the 'small integer’ format as 00 FF 00 00 00. It is then the ‘limiting number’, the one which when twos 
complemented overflows (cf. 80 hex in a simple one byte or 7 bit system, i.e. -128 decimal, which when twos complemented still gives 
80 hex i.e. -128 decimal since the positive number 128 decimal does not fit into the system). 


4. Some awareness of this may have inspired the abortive attempt to create 00 FF 00 00 00 in ‘truncate’. It is abortive since it does not 
even survive the INT routine of which ‘truncate’ is a part. It just leads to the mistake INT (-65536) equals -1. 


5. But the main error is that this number has been allowed to arise from 'short addition’ of two smaller negative integers and then simply 
put on the stack as 00 FF 00 00 00. The system cannot cope with this number. The solution proposed in ‘addition’ is to form the full five 
byte floating-point form at once; i.e. test for the number first, at about byte 3032, as follows: 


3032 PUSH AF Save the sign byte in A. 

3033 INC A Make any FF in A into 00. 
3034 OR E Test all 3 bytes now for zero. 
3035 OR D 

3036 JR NZ,3040,ADD-STORE Jump if not -65536. 

3038 POP AF Clear the stack. 

3039 LD (HL),+80 Enter 80 hex into second byte. 
303B DEC HL Point to the first byte. 

303C LD (HL),+91 Enter 91 hex into the first byte. 
303E JR 3049,ADD-RSTOR Jump to set the pointer and exit. 
3040 ADD-STORE POP AF Restore the sign byte in A. 
3041 LD (HL),A Store it on the stack. 

3042 INC HL Point to the next location. 
3043 LD (HL),E Store the low byte of the result. 
3044 INC HL Point to the next location. 

3045 LD (HL),D Store the high byte of the result. 
3046 DEC HL Move the pointer back to 

3047 DEC HL address the first byte of the 
3048 DEC HL result. 

3049 ADD-RSTOR POP DE Restore STKEND to DE. 

304A RET Finished. 


6. The above amendment (i.e. 15 extra bytes) with the omission of bytes 3223 to 323E inclusive from ‘truncate’ should solve the 
problems. It would be nice to be able to test this. The calls of INT-STORE should not lead to 00 FF 00 00 00 being stacked. In ‘multiply’ 
the number will lead to overflow if it occurs, since 65536 will set the carry flag; so ‘long’ multiplication will be used. As noted at 30E5, the 
5 bytes starting there could probably be omitted if the above amendments were made. 'Negate' avoids stacking 00 FF 00 00 00 by 
treating zero separately and returning it unaltered. Truncate deals separately with -65536, as noted above. SGN stores only 1 and -1. 
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INDEX TO ROUTINES 


address routine 


THE RESTART ROUTINES and TABLES 


0000 
0008 
0010 
0018 
0020 
0028 
0030 
0038 
0053 
0066 
0074 
007D 
0095 
0205 


THE 
028E 
02BF 
0310 
031E 
0333 


THE LOUDSPEAKER ROUTINES 


03B5 
03F8 
046E 


THE CASSETTE HANDLING ROUTINES 


04C2 
053F 
0556 
05E3 
0605 
07CB 
0802 
0808 
08B6 
0970 
09A1 


THE 
O9F4 
0A11 
0A23 
0A3D 
OA4F 
OASF 
OA69 
OA6D 
OAD9 
OADC 
0B03 
0B24 
OB7F 
OBDB 
OCOA 
0C3B 
0C41 


START 

Error 

Print a character 
Collect character 
Collect next character 
Calculator 

Make BC spaces 
Maskable interrupt 
ERROR-2 
Non-maskable Interrupt 
CH-ADD+1 
SKIP-OVER 

Token tables 

Key tables 


KEYBOARD ROUTINES 
Keyboard scanning 
KEYBOARD 
Repeating key 
K-TEST 
Keyboard decoding 


BEEPER 
BEEP 
Semi-tone table 


SA-BYTES 15 
SA/LD-RET 17 
LD-BYTES 17 
LD-EDGE-2 20 
SAVE-ETC 21 
VERIFY control 26 
Load a data block 26 
LOAD control 27 
MERGE control 29 
SAVE control 32 
Cassette messages 32 
SCREEN & PRINTER HANDLING ROUTINES 
PRINT-OUT 33 
Control character table 33 
Cursor left 33 
Cursor right 33 
Carriage return 34 
Print comma 34 
Print a question mark 34 
Control characters with operands 34 
PO-ABLE 35 
Position store 36 
Position fetch 36 
Print any character 36 
Print all characters 37 
Set attribute byte 39 
Message printing 39 
PO-SAVE 40 
Table search 40 


page 


BRWNNND Awana nanan 


ONNOW 
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address routine 


0C55 
OCF8 
0D4D 
OD6B 
ODAF 
ODD9 
ODFE 
0E44 
0E88 
OE9B 
OEAC 
OECD 
OEF4 
OF2C 
OF81 
OFAO 
OFAQ 
OFF3 
1007 
100C 
1015 
101E 
1024 
1031 
1059 
1076 
107F 
1097 
10A8 
111D 
1190 
11A7 


Test for scroll 

‘scroll?’ message 
Temporary colour items 
CLS command 


Clearing the whole display area 


CL-SET 

Scrolling 

Clear lines 
CL-ATTR 
CL-ADDR 

COPY command 
COPY-BUFF 
COPY-LINE 
EDITOR 
ADD-CHAR 
Editing keys table 
EDIT key 

Cursor down editing 
Cursor left editing 
Cursor right editing 
DELETE editing 
ED-IGNORE 
ENTER editing 
ED-EDGE 

Cursor up editing 
ED-SYMBOL 
ED-ERROR 
CLEAR-SP 
Keyboard input 
Lower screen copying 
SET-HL 
REMOVE-FP 


THE EXECUTIVE ROUTINES 


11B7 
11CB 
11DA 
12A2 
1391 
155D 
15AF 
15C6 
15D4 
15E6 
15EF 
1601 
1615 
162D 
1634 
1642 
164D 
1652 
1655 
1664 
168F 
169E 
16B0 
16D4 
16DB 
16E5 


NEW command 

Main entry (Initialisation) 
RAM-CHECK 

Main execution loop 
Report messages 
MAIN-ADD 

Initial channel information 
Initial stream data 
WAIT-KEY 

INPUT-AD 

Main printing 
CHAN-OPEN 
CHAN-FLAG 

Channel code look -up table 
Channel K flag 

Channel S flag 

Channel P flag 
ONE-SPACE 
MAKE-ROOM 
POINTERS 

Collect a line number 
RESERVE 

SET-MIN 

Reclaim the edit-line 
INDEXER 

CLOSE # commend 
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address routine 


1716 
171E 
1736 
177A 
1793 
1795 
1795 
17F5 
17F9 
1855 
18B6 
18C1 
18E1 
190F 
1925 
196E 
1980 
1988 
19B8 
19DD 
19E5 
19FB 
1A1B 


CLOSE stream look-up table 
Stream data 

OPEN # command 

OPEN stream look-up table 
CAT, ERASE, FORMAT & MOVE commands 
LIST & LLIST commands 
AUTO-LIST 

LLIST 

LIST 

Print a whole BASIC line 
NUMBER 

Print a flashing character 

Print the cursor 

LN-FETCH 

Printing characters in a BASIC line 
LINE-ADDR 

Compare line numbers 

Find each statement 
NEXT-ONE 

Difference 

Reclaiming 

E-LINE-NO 

Report and line number printing 


BASIC LINE AND COMMAND INTERPRETATION 


1A48 
1B17 
1B28 
1B52 
1B6F 
1B76 
1B8A 
1B9E 
1BB2 
1BB3 
1BBF 
1BD1 
1BEE 
1BF4 
1C01 
1COD 
1016 
1C1F 
1022 
1C56 
1079 
1096 
1CBE 
1CDB 
1CDE 
1CEE 
1CFO 
1D03 
1D86 
1DAB 
1DDA 
1DEC 
1E27 
1E39 
1E42 


Syntax tables 

Main parser (BASIC interpreter) 
Statement loop 

SCAN-LOOP 

SEPARATOR 

STMT-RET 

LINE-RUN 

LINE-NEW 

REM command 

LINE-END 

LINE-USE 

NEXT-LINE 

CHECK-END 

STMT-NEXT 

Command class table 
Command classes - 00, 03 & 05 
JUMP-C-R 

Command classes - 01, 02 & 04 
Variable In assignment 

Fetch a value 

Expect numeric/string expressions 
Set permanent colours (class 07) 
Command class - 09 

Command class - 0B 

Fetch a number 

STOP command 

IF command 

FOR command 

LOOK-PROG 

NEXT command 

NEXT-LOOP 

READ command 

DATA command 

PASS-BY 

RESTORE command 
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address routine 


1E4F 
1ESF 
1E67 
1E7A 
1E80 
1E85 
1E94 
1EA1 
1EAC 
1EED 
1F05 
1F1A 
1F23 
1F3A 
1F54 
1F60 
1FC3 
1FC9 
1FCF 
1FF5 
1FFC 
2045 
204E 
2070 
2089 
21B9 
21D6 
21E1 
226C 
2294 
22AA 
22CB 
22DC 
2307 
2314 
2320 
2382 
247D 
24B7 


EXPRESSION EVALUATION 


24FB 
2530 
2535 
2580 
2596 
25AF 
26C9 
2734 
2795 
27B0 
27BD 
28AB 
28B2 
2951 
2996 
2A52 
2AB6 
2ACC 
2AEE 


RANDOMIZE command 
CONTINUE command 
GO TO command 
OUT command 
POKE command 
TWO-PARAM 

Find integers 

RUN command 
CLEAR command 
GO SUB command 
TEST-ROOM 

Free memory 
RETURN command 
PAUSE command 
BREAK-KEY 

DEF FN command 
UNSTACK-Z 
LPRINT command 
PRINT command 
Print a carriage return 
Print items 

End of printing 

Print position 

Alter stream 

INPUT command 
IN-ASSIGN 
IN-CHAN-K 

Colour item routines 
CO-CHANGE 
BORDER command 
Pixel address 

Point 

PLOT command 
STK-TO-BC 
STK-TO-A 

CIRCLE command 
DRAW command 
Initial parameters 
Line drawing 


SCANNING 
SYNTAX-Z 

Scanning SCREEN$ 
Scanning ATTR 
Scanning function table 


Scanning function routines 
Scanning variable routine 


Scanning main loop 
Table of operators 
Table of priorities 
Scanning function (FN) 
FN-SKPOVR 
LOOK-VARS 

Stack function argument 
STK-VAR 

SLICING 

STK-STORE 

INT-EXP 

DE,(DE+1) 
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100 
101 
101 
101 
101 
101 
101 
102 
102 
103 
103 
103 
104 
104 
104 
105 
106 
106 
106 
107 
107 
108 
108 
108 
109 
111 
112 
112 
114 
115 
115 
116 
116 
117 
117 
117 
119 
123 
124 


127 
128 
128 
129 
129 
130 
133 
135 
137 
137 
137 
141 
141 
144 
145 
148 
150 
150 
151 
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address routine 


2AF4 
2AFF 
2BF1 

2C02 
2C88 
2C8D 
2C9B 
2D1B 
2D22 
2D28 
2D2B 
2D3B 


GET-HL*DE 

LET command 
STK-FETCH 

DIM command 
ALPHANUM 

ALPHA 

Decimal to floating-point 
NUMERIC 

STK-DIGIT 

STACK-A 

STACK-BC 

Integer to floating-point 


THE ARITHMETIC ROUTINES 


2D4F 
2D7F 
2D8E 
2DA2 
2DC1 
2DD5 
2DE3 
2F8B 
2F9B 
2FBA 
2FDD 
3004 
300F 
3014 
30A9 
30C0 
30CA 
31AF 
3214 
3293 
3297 


THE 
32C5 
32D7 
335B 
33A1 

33A2 
33A9 
33B4 
33C0 
33C6 
33F7 

3406 

340F 

341B 
342D 
343C 
3449 

346A 
346E 
3492 

34A5 
34AC 
34B3 
34BC 


E-format to floating-point 
INT-FETCH 

INT-STORE 

Floating-point to BC 

LOG (24A) 

Floating-point to A 

Print a floating-point number 
CA=10*A+C 

Prepare to add 

Fetch two numbers 

Shift addend 

ADD-BACK 

Subtraction (03) 

Addition (OF) 

HL=HL*DE 

Prepare to multiply or divide 
Multiplication (04) 

Division (05) 


Integer truncation towards zero (3A) 


Re-stack two 
RE-STACK (3D) 


Table of constants 
Table of addresses 
CALCULATE 

Delete (02) 

Single operation (3B) 
Test 5-spaces 

Stack number 


Move a floating-point number (31) 


Stack literals (34) 
Skip constants 
Memory location 


Get from memory area (EO etc.) 


Stack a constant (AO etc.) 
Store in memory area (CO etc.) 
EXCHANGE (01) 

Series generator (86 etc.) 
Absolute magnitude (2A) 
Unary minus (1B) 

Signum (29) 

IN (2C) 

PEEK (2B) 

USR number (2D) 

USR string (19) 
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151 
151 
157 
157 
159 
159 
160 
161 
162 
162 
162 
162 


164 
165 
165 
166 
166 
167 
167 
173 
174 
174 
175 
176 
176 
176 
179 
180 
180 
184 
186 
188 
188 


FLOATING-POINT CALCULATOR 


190 
190 
192 
194 
194 
194 
194 
195 
195 
196 
196 
197 
197 
197 
198 
198 
199 
199 
200 
200 
201 
201 
201 
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address routine 


34E9 TEST-ZERO 

34F9 Greater than zero (37) 
3501 NOT (30) 

3506 Less than zero (36) 
350B Zero or one 

351B OR (07) 

3524 Number AND number (08) 
352D String AND number (10) 
353B Comparison (09-0E, 11-16) 
359C String concatenation (17) 
35BF STK-PNTRS 

35C9 CHR$ (2F) 

35DE VAL and VAL$ (1D,18) 
361F STR$ (2E) 

3645 Read-in (1A) 

3669 CODE (1C) 

3674 LEN (1E) 

367A Decrease the counter (35) 
3686 Jump (33) 

368F Jump on true (00) 

369B END-CALC (38) 

36A0 Modulus (32) 

36AF INT (27) 

36C4 Exponential (26) 

3713 Natural logarithm (25) 
3783 Reduce argument (39) 
37AA Cosine (20) 

37B5 SINE (1 F) 

37DA Tan (21) 

37E2 ARCTAN (24) 

3833 Arcsin (22) 

3843 Arccos (23) 

384A Square root (28) 

3851 Exponentiation (06) 
APPENDIX 


BASIC programs for the main series. 
- Series generator 


- SINX 


- EXPX 


- LNX 


- ATNX 
The 'DRAW' algorithm 
The 'CIRCLE' algorithm 
Note on Small Integers and -65536 
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202 
202 
202 
203 
203 
203 
203 
204 
204 
205 
206 
206 
207 
208 
208 
209 
209 
209 
209 
210 
210 
210 
211 
211 
213 
215 
216 
216 
217 
218 
219 
220 
220 
220 


222 
223 
224 
226 
228 
228 
229 
229 
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237 
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Spectrum ROM Disassembly 
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